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V otre avenir, c’est un monde de machines mer¬ 
veilleuses: machines cà travailler, machines à 
voyager, à détecter de nouvelles ressources, 
à conquérir de nouveaux espaces. 

Toutes pilotées par des ordinateurs, eux-mêmes 
commandés par... vous ! L’avenir, ça se prépare sérieu¬ 
sement. Dès aujourd’hui. L’amstrad CDC 464 est fait 
pour ça. 

Pour vous faciliter l’apprentissage des connaissances 
essentielles: mathématiques, géographie, sciences, 
langues... 


Pour vous apprendre à maîtriser l’outil de l’avenir, 
l’ordinateur, et à en faire un outil de création : dessin, 
musique... Choisir le CPC 464. c’est choisir le standard 
d’aujourd’hui : celui pour lequel on crée chaque jour le 
plus grand nombre de programmes éducatifs, scienti¬ 
fiques, professionnels et de jeux (jouer est aussi une 
façon d’apprendre). 

Choisir le CPC 464 c’est encore choisir le meilleur 
rapport performances/prix du moment, 

2990F avec son écran couleur: le futur est vraiment 
à la portée de tous. 








LE MORDANT INFORMATIQUE 
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i Merci de m’envoyer une documentation sur le CPC 464 


| Nom_ 

| Adresse_—--- 

| Code Postal_Ville —-- 

Renvoyer ce coupon à : Amstrad France 
BP 12 - 92312 Sèv res Cedex 
Ligne consommateurs: 46.26.08.83 
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Mendes-rrance. NIC 



Choisir son futur, c’est faire un compte à 
rebours. On décide que dans 5,7 ou 10 ans 
on doit avoir réussi à conquérir sa place, 
la meilleure. 

Reste à travailler pour y parvenir. 

Et à choisir le meilleur partenaire pos¬ 
sible : le CPC 6128 Amstrad. 

Avec lui pas de problème : il a toute la 
puissance nécessaire pour vous épauler, 
depuis la 6 ( ‘ jusqu’à l’université ou la 
grande école. 

Mathématiques, sciences, gestion, arts 
a.\ graphiques ou musique : il est répéti- 
teur, professeur, outil de création 
et partenaire de jeu intelligent 
Choisir leCPC 6128,c’estchoisirle 
standard d’aujourd’hui : celui pour 
lequel on crée chaque jour le plus grand 
nombre de programmes éducatifs, scien¬ 
tifiques, professionnels et de jeux (jouer 
est aussi une façon d’apprendre). 

Choisir le CPC 6128 c’est encore choisir le 
meilleur rapport performances/prix du 
moment 

2 990 F avec écran vert : le futur est à vous. 

CPC 6128 écran couleur 


Prix généralement constaté 


LE MORDANT INFORMATIQUE 
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Tout pour programmer 
votre AMSTRAD 

Véritables passionnés de l’AMSTRAD, 
les auteurs de cet ouvrage ont passe des 
milliers d’heures à concevoir, rédiger et 
tester des dizaines de programmes. 

• Des programmes opérationnels 
à 100 %. De l’utilitaire CP/M à la création 
de graphiques à haute résolution, en 
passant par des jeux sophistiqués ou la 
commande de synthétiseur de sons, vous 
développez des applications captivantes. 

• Un choix très étendu de langages 
de programmation. Le Basic, le Logo, 
l’Assembleur, le Turbo-Pascal, et ulté¬ 
rieurement, le Fotli, le Modula... 

• Des trucs et des conseils pratiques. 
Vous découvrez également de nom¬ 
breuses astuces : comment transférer du 
CPC 464 au 664, ou au 6128, comment 
insérer des utilitaires et gagner de la place 
en mémoire... 

• Vous élargissez le champ d’ac¬ 
tion de votre AMSTRAD. Avec la mise 
en pratique des programmes et des 
“recettes”, vous découvrez de nouvelles et 
passionnantes utilisations de votre ordi¬ 
nateur. 


. __ 

- p? " 

Vous possédez un AMSTRAD 
CPC 464, 664 ou 6128. 

Voici enfin l’ouvrage que vous 
attendiez pour tirer le meilleur 
parti de votre micro-ordinateur : 
“Comment exploiter toutes 
les ressources et augmenter 
les performances de 
votre AMSTRAD”. 

Il traite en profondeur des 
techniques de programmation, 
ainsi que de la structure interne 
et des extensions 
de votre ordinateur. 

De plus, cet ouvrage restera 
en permanence à la pointe 
de la technique, grâce 
à un service de compléments 
et de mises à jour exclusifs. 



Tout pour augmenter»»-— . 
les performances 
de votre AMSTRAD 

Cet ouvrage répond “par le menu” à 
toutes ies questions que vous vous 
posez sur le fonctionnement de votre 
AMSTRAD. Il vous indique comment 
faire pour augmenter considérablement 
ses. performances. 

• Votre matériel n’a plus de secrets 
pour vous. Fréquences d’horloge du 
Z80 CPU, interface PIO 8255, ports 
d’extension... Vous faites le tour complet 
de votre AMSTRAD, des schémas vous 
montrent en détail le rôle de chaque 
composant, 

• Vous mettez en place vous-même 
des extensions. Portez la mémoire de 
votre CPC 6128 à lMo, mettez en place 
une interface, raccordez de nouveaux 
périphériques... Des instructions de 
montage très précises vous permettent de 
procéder, à moindres frais, à toutes les 
opérations qui augmentent les possibilités 
de votre AMSTRAD. 

Votre ouvrage est 
toujours d’actualité ! 




Le complément indispensable 
de votre AMSTRAD 
Présentation : classeur à feuillets 
mobiles 400 pages grand format 
(21 x 29.7 cm). Prix de lancement 
375 F TTC jusqu’au 30.06.87. 
Après cette date, 450 F TTC. 


uwr. DE SOUSCRIPTION A renvoyer, avec votre règlement, 
ms enveloppe non affranchie, aux Editions WEKA, Libre Réponse 2581*75, 75581 Paris Cedex 12 


Cet ouvrage, unique par sa conception, 
vous fait bénéficier d’un atout consi¬ 
dérable : il évolue à la même vitesse que 
les techniques et le matériel que vous 
utilisez. Trois à quatre fois par an, des 
mises à jour et compléments vous seront 
envoyés (150 pages environ, 215 F, 
service annulable sur simple demande). 
Vous disposez ainsi régulièrement de 
nouveaux programmes et d’une infor¬ 
mation parfaitement à jour sur les 
nouveaux matériels et logiciels. 

Profitez vite de notre offre 
de lancement ! 

Pour passer le plus vite possible à la 
pratique sur votre AMSTRAD, réser¬ 
vez dès aujourd'hui votre exemplaire de 
“Comment exploiter toutes les res¬ 
sources et au g menter les performances 
de votre AMSTRAD'' . Remplissez et 
renvoyez sans plus attendre le Bon de 
souscription ci-dessous, accompagné de 
votre réglement. Vous êtes ainsi assuré de 
recevoir cet ouvrage dès sa parution et 
vous réalisez une économie de 17 % par 
rapport au prix public à parution. 


Editions Weka - 12, cour St Eloi 
75012 Paris 




OUI, laites-moi parvenir, dès sa parution, un exemplaire de “Comment 
exploiter toutes les ressources et augmenter les performances de 
votre AMSTRAD”. J'ai bien noté qu'en réservant cet ouvrage dès 
aujourd'hui, je bénéficie du prix spécial de lancement. Je recevrai également 
les compléments et mises à jour (je garde la possibilité de vous les retourner 
sans rien vous devoir, dans un délai de 15 jours après chaque envoi). 

Je joins le montant de ma souscription (soit 375 F TTC) par 
□ chèque bancaire C virement postal 3 volets à l'ordre des Editions Weka. 


Nom__ 

Prénom___ 

Adresse___ 

Code postal_Ville___ 

Date _Signature 

(* Offre valable jusqu’au 30.06.87). H.S. 2 





























HORS-SERIE 

N°2 

SPECIAL LISTINGS 

JUIN 1987 

SOMMAIRE 


Repérage d’erreur. 8 

Vérificateur V2 . 10 

Monde . 11 

Calculatrice . 21 

Chess . 33 

Supertest.42 

Hélico . 58 


Notre permanence 
technique sur votre Minitel 

Dès la parution de ce numéro hors-série d’Amstrad Magazine, 
tous ceux d'entre vous qui ont accès à un Minitel peuvent sou¬ 
mettre tous leurs problèmes à ce qui devient notre “Perma¬ 
nence Assistée par Minitel’’. 

Tapez le 36.15 code “CAFEE", rubrique “Boîte aux lettres’’, 
boite “Lecteurs’’. 

Nos techniciens répondront sous 48 H. à vos questions : soit 
individuellement, soit de façon générale. Une messagerie plus 
importante est en cours de création. 
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l’incroyable 
PC 151 





PC 1512 HD 2&çMégè Octets Mo¬ 
nochrome. Monteur monochrome, 
1 lecteur de disquettes 360 Ko et 
disque dur de 2C Vio . 11.845 F ttc 
PC 1512 HD 20 Mèga Octets Cou¬ 
leurs. Moniteui couleurs, 1 lecteur 
de d sqjeres 363 Ko et disoue d jr 
de 20 Mo.14.100 F ttc 


PCW 


PCW 8256 . . . 
PCW 8512 ... 


4740 F 
5930 F 


CRÉDIT CETELEM 
IMMÉDIAT 
CONSULTEZ-NOUS 


CPC 464/6128 



CPC 464 Monochrome 

Couleur ...... 

CPC 6128 Monochrome 
Couleur . 

IMPRIMANTE DMP 2000 
LECTEUR DISQ. OD1 


1990 F 
‘2990 F 
2990 F 
3990 F 
1690 F 
1990 F 


PC 1512 SD Monochrome. Moni¬ 
teur •’Tonocrrome, 1 Iccleu- dfe dis¬ 
quettes 36C Ko . . . 5925 F ttc 

PC 1512 SD Couleurs. Vlaruteu' 
couleurs. I lecteur de dsquettes 
3fct)Kn . ...... 8171F 

PC 1512 DD Monochrome. Montau.' 
menechrome. 2 lecteurs de disquet 

les 363 Ko. 7459 F ttc 

PC 1512 DD Couleurs. Moniteur 
couleurs, ? lecteurs de disquettes 

360 Ko .9710 F tic 

• logiciels comptabilité 
COMPTA EPC . HT 950 F 
COMPTABILITÉ SARI HT 1 900 F 
FAC. STOCK FASSI . HT 1 980 F 
GESTION LPC HT 4 200 F 

PAIE GlPSI. HT 1 980 F 


395 F 
730 F 
395 F 
498 F 
790 F 


des logiciels sérieux PCW 
ALIENOR (comptât;, gér.) D 1065 F 
COMPTES BANCAIRES D 730 F 

ADRESSES . 

BUDGET FAMILIAL 

FICHIER. 

MULTIPLAN . 

dBASE II 
NEW DESK ES 

La mise en page électronique. 

Le technologie de pointe 4 

• et des jeux 
BLAGGER-GUARDIAN 
(2 jeux) ...... 

TOMAHAWK . 

AM STRAD DAMES 
STAR GLIDDER 
THE PAWN . 


145 F 
205 F 
220 F 
185 F 
235 F 


MULTIFACE II. 

• jeux CPC 

IKARI WARRIORSC 95 F 

FER ET FL AM ME. 

THANATOS . 

GAUNTLET C 109 F 

SILENT SERVICE . 

SRAM II. 

TRIVIAL PURSUIT C 199 F 

HIJACK.C 120 F 

CAULDRON II C 79 F 

DONKEY KONG. 

GOLD HITS .... C 105 F 
ELEVATOR ACTION 
LEGEND 

OF CAGE . . . C 80 F 
YE ARE KUN FU II C 80 F 
DRAGON S LAIR . 


[C| 550 F 

- D 150 F 
'J 290 F 
C 95 F 

- 3 160 F 
C 105 F 
3 220 F 

- t 240 F 

- □ 160 F 

- 3 105F 

. C 160 F 

- ü 160F 
C 95 F 

- 0 135F 

- □ 135 F 
D 110F 


r - 


COMPTANT 


CRÉDIT CCÉLEM 


I 

PC 1 î'Z £w 
rTXoefrme 

5.925 F 

ne 

495 F 
car rnc,f 

1? iters jattes' 

“X*- 

K5r 
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Coui rrjicjfrBdt 
avec ass jraics 

'i'4f 

Œj 

PC 15*2 JJ 
rroroctrcne 

7.459 F 

ne 

BW.MF 

nr-nr-i 

12 nsrs jailes' 

Ajpyr 
r/rni-m 
759 F 

TF3 

18?4~ 

Coifhlal nu rr*-- 
avex assi'ar» 

‘.Uo.i'J F 

m 

pcij-isc 

WAVlAï 

9.710 F 

ne 

814.33 F 
par 7)0$ 

12 rervjafk'/ 

c jrrDlant 
•113F 

TEG 

i8?4’+ 

Couiîfiialf icafl: 
a*w. a»i«u .e 

H71 50" 
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PC 15-72 - J TC 
rrxiochone 

11.345 F 

ne 

i m.'.,9Pr 
parTK’S 

12 ncr&jaMcs' 

Aap-jr 

tlXTStenl 

■2-l.F 

TEÎi 
•e 2i \ 

Cojt ’.olai eu erso: 

teiEin? 
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PC 1512 2C 

14.100 F 

ne 

i IM 50 r 

1? rtetlf 

iopyr 

C'jUptCI! 

•sor 

TES 
•8 24 

Oujt yldi Cu uiC”. 

,W<C KSUteOM 

i~23 2C 
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lf.°niMAN't 

;mp2'MC 

2.290 F 

ne 

359.40 
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augob 

txrrJanl 

»îr 

TES 
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PASSAGERS DU VENT . 
ACE OF ACES . C 110 F 

ACHOJET . 

ASPHALT C 140 F BIG 4 
EAGLES NEST G 95 F - 

ELITE.C 220 F - 

LEADER BOARD C 110 F - 

MANHATTAN 95. 

MERCENARY . 

SPACE HARRIER G B5 F - 
SUPERCYCLE . C110F- 
NEMESIS C 95 F 

HIT PACK . . O 105 F- 
GAUNTLETTHE DEEPER 
DUNGEONS G 105 F- 
BALL BREAKER C115F - 
BIG TROUBLE IN LITTLE 
CHINA.G 116 F- 


2 290 F 
O 150 F 
C 145 F 
D 150 F 
D 140 F 
D280F 
D 160 F 
D 170 F 
C 100 F 
D 139 F 
ü 160 F 
D 149 F 
" 149 F 


les imprimantes 

IMPRIMANTE DMP 3000. 10C ca- 

rar.tére? per seco'de. frict or et trac¬ 
tion spéciale'-en: oo'çue pour les 
modèle? PC 151? tou? es compati¬ 
bles et IBM PC. 2 290 F TTC 

IMPRIMANTE DMP 4000. 2D0 ca¬ 
ractères par seconde en 50 caractè¬ 
res par seconde qualité courrier. Ca¬ 
ractères ; ASCIi-90. ltsl-96. NLO-9G 
(courrier), N LC ITAL 95. Inlerralio- 
na.x-9. Spêoaux-132 
Ta HêS d'ut p’ebbiuri ; Standard, Midi 
et Cordensé 

136 et 233 colonnes. 3 990 F TTC 


ENCORE POUR PC 1512 

• traitement de texte 

EVOLU1 ION SUNSET 990 F 

GEM WRITE . 990 F 

PRINT MASTER . 480 F 

TEXTOMAT. 814 F 

WORDSTAR 1512 090 F 

• utilitaires 

D BASE il (base donnêes)HT 990 F 
FRAMEWORK 1*' . . .h 990F 
GEM DRAW BUSINESS H 429 F 
GEM FONTS & DRIVERS ." 429 F 

GEM PFtOG TOOLKIT M 1990 F 

REFLEX .Jt B35 F 

SIDEKICK. » 330 F 

SUPERCALC 3 (tableur) li 750 F 

• livre 

LE LIVRE DU BASIC 2 179 F 


• encore des jeux AMSTRAD 
1942 C B0F-D130F 

GORBAF . D 


RAMA RAMA 

COBRA . 

SHORT CIRCUIT 
lOlhFRAME 
M’ENFIN . .. . 

MASQUE . 

TT RAC ER 

TOMAHAWK 

TOP GUN 

IMPOSSIBLE 

ALIENS . 

SEPULCRI 

ARKANOID 

80MBJACK 

MUTANS 


C 105 F 
C 79 F - ü 135 F 
C 79 F - D 135 F 
C 105F- D 153F 

.D 140 F 

.D 185 F 

D 149 F 
C 99 F - C 149 F 
C 85 F - D 140 F 
(J 80 F - J 135 F 
C 135 F - 3 180 F 
C 125 F - il 210 F 
C 85 F - J 134 F 
C 75 F-0 125F 
C 80 F - n 135 F 


LOGICIELS PC 1512 
• jeux 

ALTER EGO MÀLE/FEMELL 260 F 

ARCHON.145 F 

BALANCE OF POWER 245 F 

CHESSMASTER 2000 ... 510 F 
CRUISADE IN EUROPE 265 F 
DECISION IN THE DESERT 250 F 

F.15STRIKE EAGLE. 233 F 

GOLF TOUR. 425 F 

HELLCAT ACE . 190 F 

JEWELS OF DARKNESS . 246 F 
KARATEKA 326 F 

PINBALL CONS 8ET. 145 F 

SILENT SERVICE 265 F 

SOLO FLIGHT. 315 F 

SPITFIRE ACE . 190 F 

STARFLIGHT 425 F 


PROTÉGEZ VOTRE MICRO 

464 couleur i? housses) . . 100 F 
464 mono (2 housses) . . . 100 F 
6128 couleur (2 housses) 100 F 
6120 mono i? housses) .. . 100 F 
DISQUE DD1 (1 heussei . 46 F 

IMP. DMP il housse) . 80 F 

PCW [3 housses].195 F 

PC 1512 il housse».195 F 


Joysticks 

« THE PROFESSIONAL 
. 6 mlcroswMches 

A. Standard 185 F 

B. Autofire 225 F 


DIGITALISEUR 

VIDI - VIDEO DIGITALISEUR 

VIDI un NUMERISEUR sper.iale- 
men: crée pour la ga'me des CPC 

AMSTRAD 1150F 

DIGITALISEUR PC 2 640 F 



POUR PCW 
gtnterlacc + Joycard 195 F 
[ Interlace seule 155 F 


BON DE COMMANDE à renvoyer à RUN dep‘ VPC : 62, rue Gérard - 75013 PARIS 


Nom 

Adresse 


Prénom 


Fras de port (France métropolitaine) Logiciels 20 F. h par 
SERNAM EXPRESS 200 F Sup. prier r.;yntre-rembcnr?emenl 30 F + 

Ci-joirl mon réglumsnl par chèque bancaire U ou CCP _ ' 

SIGNATURE : Tua! _ 

Signature des parents pour les moins de 18 ans. 

Je choisis la proposition_Inscrire la lelt'e eprespondant 

à l'option choisie. Vouliez me taire parvenir une offre préalable de CRÉDIT CÉTÉLEM. 
Je joins les pièces üemandéespour ^on établissement et mon versement conotant 

•Pièces à fournir : 

Votre carte d’identne. 
Votre releve d'identité 
bancaire (R B). 

U- ce vos chèques an 
rtüe par vos soms. 

Votre deniere fiche de 
oaye. 

Un .ustif eatif de votee 
domcile (RTT. EDF, quit¬ 
tance de loyed 


. par l j chèque uT CCP Mandat-lettre. 


Je préfère régler par carte de crédit bancaire n° de carte 

I ! M II I I I II I ! Ml I I 


Expire à fin.../... 

Date de commande : 
Signature obligatoire : 


□ 
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TRUCS II BIBOULIIES 




Cet article s’adresse à ceux d’entre vous qui pas¬ 
sent des heures à taper sur leur CPC un pro¬ 
gramme qu'ils trouvent dans une revue comme 
celle que vous avez entre les mains, ou qu’ils 
ont conçu eux-mêmes, pour obtenir un superbe 
plantage du système ou un mauvais fonctionne¬ 
ment du programme à la suite d’une faute de 
frappe ou d'une réelle erreur dans le pro¬ 
gramme d’origine. 



Le problème de 
compatibilité entre 
les machines 


La première chose à regarder 
lorsque vous tapez un pro¬ 
gramme provenant d’une revue 
est de vérifier que celui-ci tourne 
bien sur votre ordinateur. Il est 
en effet inutile de retaper tel quel 
sur un CPC un programme 
prévu pour une APPLE ! Il est 
obligatoire de le trancrire car le 


Basic, malgré le fait qu’il soit le 
langage utilisé par la plupart des 
micro-ordinateurs familiaux du 
marché, est différent d’une 
machine à l’autre. 


Le problème se pose également 
entre les trois modèles CPC 
lorsqu’il s’agit d’un programme 
utilisant certaines routines se 
trouvant en ROM ou encore cer¬ 
taines variables systèmes. Véri¬ 
fiez dans ce cas que le pro¬ 
gramme qui vous intéresse 


tourne bien sur votre modèle de 
CPC (si bien sûr, vous en pos¬ 
sédez un !). 


Les programmes utilisant 
le langage machine 


Certains programmes de jeux ou 
utilitaires possèdent une partie 
en langue machine. Pour que 
vous puissiez les retaper sans 
avoir à utiliser d’assembleur, les 
codes opérations (ces codes sont 
les seules instructions comprises 
par le microprocesseur, cerveau 
d’un micro-ordinateur, qui cor¬ 
respondent à des fonctions élé¬ 
mentaires tels que chargement 
ou sauvegarde d’un registre) 
sont mis en DATA et le plus 
souvent codés en hexadécimal. 


Lorsque vous avez fini de taper 
le programme, la première chose 
à faire est de le SAUVEGAR¬ 
DER. C’est impératif ! Si une 
des valeurs est erronée, lors d’un 
RUN, vous risqueriez de planter 
le programme et il vous faudrait 
alors retaper entièrement le pro¬ 
gramme car vous ne pourriez pas 
le récupérer. 


Après cette sauvegarde, vous 
pouvez le lancer. S’il plante, ce 
n’est pas grave puisque vous 
l’avez sur cassette ou sur dis¬ 
quette. Vous n’avez donc pas à 
le retaper (avouez qu’il est 
rageant de taper un programme 
pendant deux heures pour 
rien !). Rechargez-le alors en 
mémoire et vérifiez-le lignes par 
lignes, instructions par instruc¬ 
tions, et même caractère par 
caractère. Le langage machine 
est impitoyable dans le cas d’une 
erreur. Le seul message qu’il ren¬ 
voie est le plantage pur et sim¬ 
ple du micro-ordinateur. Soyez 
donc très prudent. 

Si, pour vos programmes, vous 
employez le système des DATA 
pour rentrer du langage machine 
et surtout, si vous désirez nous 
envoyer un programme utilisant 
ce procédé, forcez-vous à inclure 
dans le programme une routine 
d’auto-test qui, justement, véri¬ 
fiera que les valeurs en DATA 
sont correctes. Voici une solu¬ 
tion parmi tant d’autres. Il suf¬ 
fit d’utiliser une variable supplé¬ 
mentaire qui contiendra au fur 
et à mesure de l’implantation en 
mémoire des valeurs lues en 



_ . *• . . ... J 















M. 


DATA, la somme de celles-ci. 
En supposant que la routine de 
decture des DATA se trouve en 
début de programme, voici un 
exemple que nous vous conseil¬ 
lons car elle évite le plantage 
fatal en cas d’erreur de recopie 
du programme : 

10 somdat = O’ Initialisation de 
la variable test 

20 FOR ad = adresse de début 
TO adresse de fin 
30 READ da : POKE 
ad,da :somdat = somdat + da 

40 NEXT ad 

50 IF somdat < > X THEN 
?“ERREUR DANS LES 
DATA”: END 

60 suite du programme 
X est la valeur théorique qui est 
égale à la somme de toutes les 
valeurs contenues dans les lignes 
de DATA. Si le message 
‘‘ERREUR DANS LES 
DATAS” s’affiche, c’est que 
vous avez fait une faute de sai¬ 
sie, ou que la valeur de X est 
fausse. De toutes façons, vérifiez 
vos DATA. 

51 c’est un message d’erreur du 
BASIC qui s’affiche, c’est 
qu’une donnée est incorrecte, ou 
qu’il manque une virgule... Pour 
connaître la DATA défaillante, 
faites simplemen : PRINT ad - 
adresse de début. 

Le nombre qui sera alors affiché 
sera le numéro de la DATA qui 
est incorrecte. Il ne vous reste 
plus qu’à les compter jusqu’à ce 
que vous pointiez sur celle qu’il 
vous faut modifier. Cette der¬ 
nière astuce est valable pour tous 
les programmes BASIC conte¬ 
nant des DATA lorque l’écriture 
de ces dernières provoque un 
message d’erreur lors d’un 
RUN. 

Les messages d’erreurs 
du basic 

Ces messages sont écrits en 
anglais du fait de la nationalité 
de l’AMSTRAD et de celle du 
BASIC. Malgré tout, le manuel 
du CPC vous dit succintement ce 
qu’ils signifient. Reportez-vous 
y de tempms en temps si vous ne 
comprenez pas votre message 
d’erreur, vous trouverez peut- 
être quelle en est la cause. 
L’erreur la plus sournoise est le 
MEMORY FULL, qui signifie 
mémoire pleine. Elle peut surve¬ 
nir lors d’un SYMBOL, AF 1ER 
prenant trop de place en 
mémoire, ou encore lors d’un 
MEMORY. Elle peut aussi sur¬ 
venir lors d’une instruction 


comme DIM si la réservation de 
mémoires variables demandée 
est trop importante. Vous pou¬ 
vez toujours connaître la taille 
mémoire disponible en tapant 
PRINT FRE(O). Le résultat 
obtenu sera en octets. Pour con¬ 
naître la valeur en Ko, il vous 
suffit de diviser ce nombre par 
1 024 (= 2 !0 ). Ce message 
d’erreur peut avoir encore une 
origine beaucoup plus sournoise. 
Si vous avez trop de boucles 
imbriquées, oit de GOSUB ou de 
WHILE, vous obtiendrez un 
MEMORY FULL. Vérifiez 
donc que vous n’avez pas de sor¬ 
tie de boucles ou de sous- 
programmes, anormaux. Dans 
ce cas, comme dans toutes les 
recherches d’erreurs, nous vous 
conseillons d’utiliser l’instruc¬ 
tion TRON qui vous affichera, 
au fur et à mesure, les numéros 
des lignes parcourues par le pro¬ 
gramme. Vous pourrez donc 
ainsi vérifier que tout se passe 
bien comme prévu au niveau des 
lignes. 

Correction d'une erreur 
de syntaxe 

Ce type d’erreur est signalé, à 
l’exécution du programme, par 
le message SYNTAX ERROS 
IN LINE XXXX. C’est le type 
d’etteoT plus sYrsypte à corri¬ 
ger. Vérifiez que les instructions 
sont bien écrites. A ce propos, 
un conseil, lorsque vous tapez un 
programme, faites-le en minus¬ 
cules. L’interpréteur convertira 
automatiquement les instruc¬ 
tions pour qu’elle apparaissent 
en majuscules dans votre pro¬ 
gramme. Ainsi, si dans une 
ligne, une instruction n’apparaît 
pas en majuscules, c’est que sa 
syntaxe est incorrecte. Si toutes 
les instructions sont correctes, 
vérifiez alors que vous avez bien 
laissé un espace entre une ins¬ 
truction BASIC et son, ou ses, 
paramètres. Par exemple dans le 
cas de BORDER O, il faut obli¬ 
gatoirement un espace entre 
BORDER et O. Vérifiez aussi 
que vous avez bien mis les : 
entre deux instructions, s’il s’agit 
d’un programme que vous êtes 
en en train de créer, n’utilisez 
pas de variables dont le nom 
contient celui d’une instruction 
appartenant au langage que vous 
utilisez. De plus, n’oubliez pas 
les paramètres nécessaires à cer¬ 
taines fonctions. N’hésitez pas, 
en cas de doute, à vous reporter 
au manuel de votre ordinateur, 
il est là pour ça ! 


Autres messages 
d’erreur 

Certains messages d’erreurs, tel 
un SUBSCRIPT OUT OF 
RANGE IN LINE XXXX, ne 
vous donneront pas le numéro 
de la ligne où s’est réellement 
produite l’erreur. Dans le cas du 
SUBSCRIPT OUT OF 
RANGE, vous avez oublié de 
dimensionner votre variable (ou 
l’indice de dimension était trop 
petit) par l’instruction DIM. 

Les erreurs anonymes 

C’est le type d’erreurs le plus dif¬ 
ficile à détecter, la bête noire ees 
programmeurs. Le programme 
ne fonctionne pas correctement, 
mais aucun message d’erreur ne 
s’affiche. Le cas des DATA, vu 
précédemment, en est un bon 
exemple. Ne confondez pas un 
I avec un i ou un 1, ou encore 
un O avec un 0. Un programme 
fait ce qu’on lui demande, à con¬ 
dition que cela soit fait dans les 
normes. La programmation est 
quelque chose de très strict, 
soyez donc très vigilant ! 

Vous avez certainement remar¬ 
qué, en lisant notre revue, des 
nombres entre crochets à la 


droite de chaque ligne des lis¬ 
tings. Us ne font, bien sûr, pas 
partie des programmes, mais 
sont utilisés pour le debugging 
(terme du jargon informatique 
signifiant recherche d’erreur) en 
utilisant le programme vérifica¬ 
teur V2 (Amstrad Magazine 
n° 16 p. 88) que nous republie¬ 
rons régulièrement. Ce dernier 
doit être utilisé dès que vous 
tapez un programme de notre 
revue. Il vous signalera lorsque 
vous entrerez une ligne de pro¬ 
gramme si elle contient ou non, 
une erreur. Pratique n’est-ce 
pas ? 

De toutes façons, la meilleure 
façon de savoir corriger une 
erreur dans un programme, est 
encore de savoir programmer. 
Une très bonne méthode pour 
apprendre la programmation de 
base lorsque l’on est seul, est de 
transcrire un programme simple 
en BASIC d’un ordinateur à un 
autre. Cela impose une connais¬ 
sance croissante du BASIC de 
son ordinateur ainsi qu’une 
méthode de recherche perfor¬ 
mante qui est utile lors du 
debugging. Ceci dit, bonne pro¬ 
grammation ! 

Eric Mistelet 


Le programme vérificateur VS 
paru dans Amstrad Magazine 
n° 16 fonctionne très bien 
pour les trois modèles de 
CPC S'il ne fonctionne pas 
correctement > c’est que vous 
avez commis une faute de 
frappe quelque part. Mous 
vous rappelons que vous 
devez sauvegarder le pro¬ 
gramme avant de le lancer par 
un RUM. En effet, une erreur 
dans les DATA pourrait causer 
un plantage du système. 

Mous vous proposons donc 
une petite modification qui 
vous signalera une éventuelle 
erreur dans ces DATA. 
ATTENTION, tapez bien le 
programme prévu pour votre 
version de CPC, 464, 664, 
6178. Dans la modification 
que nous vous proposons, la 
variable SN dépend, elle 
aussi, du modèle de CPC que 
vous possédez. 

Lignes à rajouter au vérifica¬ 
teur V2 : 


A titre d'exercice 

Pour les trois modèles 


somme - somme + VAL( 

&" + b yte$) 

155 IF some < > sn THEN 
PRINT "ERREUR DANS LES 
DATA": END 

_ Version CPC 464: 115 
somme = O :sn = 33109 
_ version CPC 664 : 115 
somme - O :sn =J^ 49 ... 

- Version CPC 6178: 115 
somme = 0 :sn = 33203 
Si, lorsque vous lancez J* p /° B 
gramme, le message ERREUR 
DANS LES DATA s’affiche, 
vérifiez vos DATA , sauvegar¬ 
dez votre programme apres 
que les modifications neces¬ 
saires aient été effectuées. 
Nous vous rappelons que les 
commandes du vérificateur V2 
sont: ON; OFF; Ç HECK ' S 
( CHECK,8 pour imprimante). 

NOTA : la barre verticale («;») 
s’obtient en appuyant sur 
<shift> êtes. 




















LISTING 



Vous avez certainement remàr- . 
que la présence, dans nos lis¬ 
tings, d’un numéro entre cro¬ 
chets ([000]). Ce numéro va vous 
permettre de pouvoir relire très 
facilement vos listings et dé 
détecter à coup sûr une éven¬ 
tuelle erreur de saisie. Vous 
pourrez trouver ei-dèssous trois . 
courts programmes correspon¬ 
dant chacun à une version de 
CPC. Vous devrez donc saisirv 
celui qui vous concerne’(sans 
erreur !) et le sauvegarder; Cet 
utilitaire vous servira désormais - 
pour tous nos listings, -de-»ce 


: ; .VV ïi. C, • 

numéro et des suivants. Cette 
méthode est testée depuis plu¬ 
sieurs mois par notre confrère 
allemand CPC Schneider Inter¬ 
national, que nous remercions 
pour sa collaboration. 

Mode d'emploi 

Apres avoir saisir le programme, 
faites un “RUN”. L’ccrari doit, 
normalement s’effacer et affi¬ 
cher « vérificateur \.i 

installéPour vérifier vos lis¬ 
tings, il suffit alors de les char-r 
ger : CHECK.2 pour lister le 


programme avec son numéro de 
contrôle. Si celui-ci est sembla¬ 
ble au nombre entre crochets 
paru dans nos listings, la ligne 
est correcte. Si ce numéro diffère 
(voir exemple) vous avez obliga¬ 
toirement fait une erreur de sai¬ 
sie... Simple, non ? 

De la meme manière, vous pour¬ 
rez tirer sur imprimante votre lis¬ 
ting avec tous les numéros de 
contrôle (comme dans nos lis¬ 
tings) en faisant : ; CHECK.8. 
Nous espérons que cette 
méthode de vérification vous 
permettra de gagner du temps en 


relecture (seuls désormais les 
numéros de contrôle sont à véri¬ 
fier par rapport à ceux qui sont 
imprimés dans la revue) et que 
cet « auto-débbugage » décon¬ 
gestionnera les permanences 
effectuées par notre technicien. 

Au travail... 

■ 

Nota : le signe « | » (barre ver¬ 
ticale) s’obtient en appuyant 
simultanément sur <SHIFT> 

et <®> 

Exemple 

10 DATA 2,3,4 1209J 

15 REM si erreur 
(virgule remplacée par 
un point virgule) 

10 DATA ,2; 3,4 [1873 


100 REM Vérificateur 464 
110 MEMORY &A4FF 
120 FOR aX*icA500 T0 S.A607 
130 READ hyte* 

140 P0KE aï, VAL < *l<“ +byte$) 

150 NEXT 

160 CLStPRINT 

170 PRINT"Verificateur V.2 
installe" 

180 CALL !<A5001 ION 
190 ! 

200 DATA 21,09,a5,01,Od,a5 
210 DATA bc,00,00,00,00, 18 
220 DATA 2a,a5,c3,2f,a5,c3 
230 DATA 4f,ce,4f,46,c6,43 
240 DATA 43,cb ,00,00,cf,98 
250 DATA a8,a5,21,27,a5,18 
260 DATA 24,a5,28,06,cd,00 
270 DATA 06,dd,11,3a,bd,01 
280 DATA ed , bO , c9,4f,cd,00 
290 DATA 26,08,0d,20,ea,dd 
300 DATA 18,04,7b,11,01,00 
310 DATA c 1, cd , a3,e7,e5,4e 
320 DATA 23,5e,23,56,e1,78 
330 DATA cd,3c,c4,e5,09,e3 
340 DATA el,21, a4 , ac,cd,7a 
350 DATA 18,e2,e5,cd,ba,a5 
360 DATA 98 , a5 , cd,96,f 2,e3 
370 DATA a5,cd,4e,c3,el,7e 
380 DATA cd , 98, a5,cd,4e,c3 
390 DATA 3a,24,ac,d6,08,47 
400 DATA c8 , cd,45,el,23,10 
410 DATA cd,24,a5,f5,c5,d5 
420 DATA ba,a5,cd,f6,a5,el 
430 DATA f 1 ,c9,eb,lb,af,47 
440 DATA 2f,32,23,a5,13,1 a 
450 DATA 38,04,fe,0a,38 , f6 
460 DATA a7,c8,4f,3a,23,a5 
470 DATA 20,28,f3,79,fe,22 
480 DATA 3a,23,a5,2f,32,23 
490 DATA 23,a5,a7,79,c4,8a 
500 DATA ad,07,6f,09,18,d8 
510 DATA cd ,5c,c3,3e,5b,cd 
520 DATA cd,79,ee,3e,5d ,c3 


464 


,c3,dl 
, a 5, c 3 
, 43, a5 
,48,45 
,aa,c3 
,03,21 
, b 9 , c 3 
,03,00 
,b9,0d 
,7e,02 
, c d , a 2 
,23,46 
, b 1, c8 
,cd,63 
, a 5 , e 1 
, e3, cd 
,cd,f6 
,a7,c8 
, 18,f5 
,7e,a7 
i f 7 , c9 
,e5,cd 
idl,cl 
,67,6F 
,d 6,30 
, la,13 
i a 1, f e 
,20,07 
, a5,3a 
,ff,4f 
,3e,20 
,5c,c3 
,5c , c 3 


100 REM Vérificateur 664 
110 MEMORY 4A4FF 
120 FOR aX*&A500 T0 &A607 
130 READ byte* 

140 P0KE aX,VAL(*lt"+byt•*> 

150 NEXT 

160 CLStPRINT 

170 PRINT"Verificateur V.2 
installe" 

180 CALL &A500 » ! ON 
190 : 

200 DATA 21,09,a5,01,0d,a5, 
210 DATA bc,00,00,00,00,18, 
220 DATA 2a,a5,c3,2f,a5,c3, 
230 DATA 4f,ce,4f,46,c6,43, 
240 DATA 43,cb,00,00,cf,02, 
250 DATA a9,a5,21,27,a5,13, 
260 DATA 24,a5,28,06,cd,00, 
270 DATA 4c,cb,il,5b,bd,01, 
280 DATA ed ,b0,c9,4f,cd,00, 
290 DATA 28,08,Od,20,ea,dd, 
300 DATA 18,04,7b,11,01,00, 
310 DATA cl ,cd,69,e8,e5,4e, 
320 DATA 23,5e,23,56,e1,78, 
330 DATA cd,75,c4,e5,09,e3, 
340 DATA e2,21,Ba,ac,cd,7a, 
350 DATA 18,e2,e5,cd,ba,a5, 
360 DATA 98,a5,cd,59,f3,e3, 
370 DATA a5,cd,9b,c3,el,7e, 
380 DATA cd,98,a5,cd,9b,c3, 
390 DATA 3a,09,ac,d6,08,47, 
400 DATA c8,cd,22,e2,23,10, 
410 DATA cd ,24 , a5,f5,c5,d5, 
420 DATA ba,a5,cd,f6,aS,el, 
430 DATA fl,c9,eb,lb,af,47, 
440 DATA 24,32,23,85,13,18, 
450 DATA 38,04,fe,Oa,38,f6, 
460 DATA a7,c8,4f,3a,23,a5, 
470 DATA 20,28,f 3,79,fe,22, 
480 DATA 3a,23,a5,2f,32,23, 
490 DATA 23,a5,a7,79,c4,ab, 
500 DATA ad,07,6f,09,1B,d8, 
510 DATA cd,a3,c3,3e,5b,cd, 
520 DATA cd,49,ef,3e,5d,c3, 


664 


c 3, d 1 
a5,c3 
43, «5 
4B, 45 
ac ,c3 
03,21 
b9,c3 
03,00 
b9,0d 
7e,02 
cd, a9 
23,46 
b 1 ,c8 
cd ,59 
a5,el 
e3, cd 
cd,f6 
a7,c8 
18,45 
7e, a7 
f 7, c 9 
e5, cd 
d 1, c 1 
67,6f 
d6,30 
la, 13 
al, f e 
20,07 
a5,3a 
f f ,4f 
3e,20 
a3,c3 
a3, c3 


100 REM Vérificateur 6128 
110 MEMORY IA4FF 
120 FOR aX = îiA500 T0 «cA607 
130 READ byte* 

140 POKE aX,VAL("li"+byte*) 

150 NEXT 

160 CLStPRINT 

170 PRINT"Verificateur V.2 
installe" 

180 CALL t<A500i ION 
190 » 

200 DATA 21,09,a5,01,Od,a5, 
210 DATA bc,00,00,00,00,18, 
220 DATA 2a,a3,c3,2f,a3,c3, 
230 DATA 4f,ce,4f,46,c6,43, 
240 DATA 43,cb,00,00,cf,02, 
250 DATA a8,a5,21,27,a5,18, 
260 DATA 24,a5,28,06,cd,00, 
270 DATA 49,cb,11,5e,bd,01, 
280 DATA ed ,bO,c9,4f,cd,00, 
290 DATA 28,08,0d,20,ea,dd, 
300 DATA 18,04,7b,11,01,00, 
310 DATA c 1 ,cd ,64,e8,e5,4e, 
320 DATA 23,5e,23,56,el,78, 
330 DATA cd ,72 , c4,e5,09,e3, 
340 DATA e2,21,6a,ac,cd,7a, 
350 DATA 18,e2 , e5, cd,ba,a5, 
360 DATA 98 , a5,cd,53,f3,e3, 
370 DATA a5,cd,98,c3,e1,7e, 
380 DATA cd,98, a5,cd,98,c3, 
390 DATA 3a,09,ac,d6,08,47, 
400 DATA c8,cd,1d,e2,23,10, 
410 DATA Cd,24,a5,f5,c5,d5, 
420 DATA ba,a5,cd,f6,a5,el, 
430 DATA f l,c9,eb,lb,af,47, 
440 DATA 2f,32,23,a5,13,la, 
450 DATA 38,04,fe,0a,38,f6, 
460 DATA a7,c8,4f,3a,23,a5, 
470 DATA 20,2B,f3,79,fe,22, 
480 DATA 3a,23,a5,2f,32,23, 
490 DATA 23,a5,a7,79,c4,ab, 
500 DATA ad,07,6f,09,18,dB, 
510 DATA cd , a0,c3,3e,5b,cd, 
520 DATA cd , 44 , ef , 3e,5d,c3, 


6128 


c 3, d 1 
a5,c3 
43, a5 

48.45 
ac ,c3 
03,21 
b9,c3 
03,00 
b 9, Od 
7e,02 
cd ,a6 

23.46 
b 1, cB 
cd, 54 
a5,el 
e3,cd 
cd, f 6 
a7,c8 
i a, f 5 
7#, a7 
f 7, c9 
e5,cd 
al .cl 
67,6F 
dâ, 30 
la,13 
al ,f e 
20,07 
a5,3a 
ff ,4f 
3e,20 
a0,c3 
a0,c3 
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“effacer l’écran” permet de 
revenir à un écran plus clair lors¬ 
que celui-ci commence à être 
surchargé... 


NOTA :N'oubliez pas de vous 
mettre en majuscules. 

Jean-Paul Garcia 
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Ce programme peut être à la fois Après avoir choisi la première 
vu comme une sorte d’atlas géo- option, l’ordinateur demande la 
graphique et comme éducatif ville à situer. Ceci fait, validez 
pour les enfants. D propose trois votre choix par < RETURN > 


options principales : 


une 




ou < ENTER > : la ville sélec- 


ville dans, le tionnée se met à clignoter sur la 
monde ; carte. D est évident que toutes les 

2 - établir un parcours ;, villes du monde ne sont pas pré- 

3 - effacer l’écran et rétablir la sentées en mémoire. A vous de 

carte vierge d’origine. rajouter les villes manquantes de 

• '• ' ‘ ' ' ' 

,, f jSi ; . . - 

i«# rÿ .:** • r a- 


syjfe* 


votre choix. L’option numéro 
deux permet de visualiser un tra¬ 
jet entre deux villes du monde. 
De fait, vous pourrez également 
en profiter pour observer la posi¬ 
tion des deux villes de référence 
(départ et arrivée). Après un pre¬ 
mier trajet, la ville d’arrivée sera 
reconnue comme ville de départ 
pour le tour suivant. L’option 


wÊimMM 


10 REM *************************** 
***** 

20 REM * 


C15923 


LE MONDE 



905 WI NDDW#1,12, 

[403] 

:CLS# 1 


910 BORDER 0:INK 

[1027] 

2.26:INK 3,0,26 


920 CLS# 1 

[4033 

930 L0CATE#! ,8,2 


[3733 

[15831 


50 REM * Par GARCIA Jean-Paul -1 
986 * 

60 REM * 


[1979] 


[403 3 


70 REM *************************** 
***** 

100 MODE 0: BORDER 0 : INK 0.0:INK 1, 
24 

110 L0CATE 7 ,12:PRINT"LE MONDE" 

120 FOR J=1 T0 4000:NEXT J 
150 MODE 1:BORDER 0 : IN K 0.0: INK -1, 
26 

160 L0CATE 5,24:PRINT"METTEZ VOTRE 
CLAVIER EN MODE MAJUSCULE" 

170 FOR J=1 T0 4000:NEXT J 

897 REM ************************** 
****** 

898 REM ** DESSIN DE LA CARTE 


[15823 


[15363 
[11583 
[ 16881 


[59331 


[11583 
[ 1532] 


[11113 


899 REM ************************** 
****** 


[15823 


900 CLS 


990 GRAPHICS PEN 1 

1000 PLOT 300.232:DRAW 298,282:DRA 

W 298,280:DRAW 296.273:DRAW 294,27 

8:DRAW 294,279:DRAW 292,279:DRAW 2 

92,276 

1010 DRAW 290,277:DRAW 236,276:DRfi 
W 288,275 : DRAW 286,274:DRAW 286.27 
3:DRAW 294,270:DRAW 293,262 
1020 DRAW 278,262:DRAW 276,260:DRA 
W 278,254 : DRAW 276,249:DRAW 278,24 
8 

1030 DRAW 284,244:DRAW 294,246:DRA 
W 296,250: DRAW 295,252:DRAW 293,25 
5: DRAW 300,256 

1040 DRAW 301,261:DRAW 306,262:DRA 
W 308,260: DRAW 314,264:DRAW 316,26 
0:DRAW 323,253:DRAW 327,250s DRAW 3 
28,248 

1050 DRAW 331,251:DRAW 330,254:DRA 
W 334,253:DRAW 321,264:DRAW 320,26 
8 : DRAW 324,268:DRAW 336,258:DRAW 3 
38,254 


[949] 

[6938] 


r n n n / n 
L jL 7 OO J 


[4125] 


[6434] 
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1060 DRAW 340,249 : DRAW 344,250:DRA [6598] 
W 340,243: DRAW 344,244:DRAW 344.24 


1200 DRAW 552,272:DRAW 554.26fc:DRA [7591 1 


8 : DRAW 346,250:DRAW 342 

,252:DRAW 3 

W 558,266:DRAW 

5 6 0 .256:D RA W 

<Tir. n , 
w« C.' ü , & 

46.256:DRAW 350,255 


0 : DRAW 564.266: 

DRAW 558.272: 

DRAW 5 

1070 DRAW 354,245:DRAW 

360,2^4:DRA [7ll9] 

62.276:DRAW 563 

.282:DRAW 56? 

. i. 0 4 : h 

W 360,246:DRAW 364.244: 

DRAW 371.24 

RAW 570.300 



6 : DRAW 372,240:DRAW 368 

,232: DRAW 3 

1210 DRAW 572.3 

0 4 ; D R A W 3 6 0,3 

26:CRA [90223 

62,233:DRAW 358,230 


W 553.322:DRAW 

550,324:DRAW ' 

556.34 

1080 DRAW 342,236 : DRAW 

339.234:DRA [69603 

4;DRAW 572,350: 

DRAW 574,343: 

DRAW 5 

W 338,228:DRAW 317.238: 

DRAW 319,24 

78.352:DRAW 576 

. 3' 5 6 : D R A W 5 S 0 

. 364: D 
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RAW 172,173:DRAW 167,173 

2780 DRAW 160,180: DRAW 160,182:DRA C84473 

W 154,184:DRAW 150, 183: DRAW 140.18 

S : DRAW 137,130:DRAW 136,190 : DRAW 1 

23,186 : DRAW 125,180 : DRAW 119.131 


2790 MOVE 160,150:FILL 1 [1319] 

2800 MOVE 175,60 : FI LL 0 [ 1856] 

2805 MO VE 374,262 : FI Li_ 0 [3911 

2810 MOVE 10,390:FILL 0 [1144] 

2815 MOVE 1 24,284 : FILL 0 [996] 

2820 MOVE 2.348:FILL 0 Cl 1053 








2825 

MO VE 

120,272:FI LL 

0 

[9431 

405 i 

PLOT X,Y + l: PLOT X,Y-i:PLCT X + 

[36923 

2830 

MO VE 

90,380:FI LL 0 


[960 3 

1 V ! 

PLOT X~1,Y : PLOT X,Y + 2: PLOT X.Y 


2835 

MO VE 

132,274 : FILL 

0 

[10003 

-2: P 

uCT X +2,Y : PLOT X -2 , Y 


2840 

MO VE 

134,382:FILL 

o 

[633] 

4060 

CL3# i : F'EN# 1, 1 

■744 ] 

2345 

MQVE 

56,232 : FI LL C 


[773] 

4070 

LOCATE#!,1,1 ; P RIN T #1,"Ville : 

[2413] 

2850 

MOVE 

122,360:FILL 

0 

[7313 

“ : Vt 



2360 

MOVE 

110,363 : FI LL 

0 

[SIS] 

4030 

LOCATE#1,1,2:PRINT#1,"Pays : 

[1614! 

2870 

MOVE 

358,330:FILL 

0 

[8303 

” : PF 



2880 

MOVE 

460,398: FILL 

0 

[9273 

4 0 8 5 

IF Z = 0 THEM LOCATE#1,1,2: PRIN 

C3371] 

2890 

MOVE 

484,390:FILL 

0 

[8173 

T# 1 , 

"VILLE NOM PROGRAMMEE" 


2900 

MOVE 

4i6,272: FILL 

0 

[1452] 

4087 

LOCATE#1.1,4:FRINT#1."C Pour 

[27 0 2] 

2910 

MOVE 

400,256: FILL. 

0 

[11153 

Cont 

i n u e r " 


2912 

MOVE 

301,277:FÎLL 

1 

[1064] ■ 

4090 

WIND0W#6,30,31,25,25:PftPER#6, 

£2812] 

2913 

I MK 

i , 6 


[67 3 

X. : l 

S# 6 


2915 

W ï ND 

OW#1,12,33,22, 

25: PAPER# 1 , 

[1775] 

4092 

IN P U T # 6,"",3$ 

[1276] 

2i CL ES # 1 




4094 

IP Qî< >"C" THEM 4092 

[921] 

2917 

REM 

************************* 

[1576J 

4096 

IF 3$="C" THEM 4000 

[1091] 

* * * * 

*■»■ 




4098 

p.Jr" Il 

[3733 

2918 

REM 

** MENU 


[987] 

4997 

REM ************************* 

[15763 


** 




**** 

** 


2919 

REM 

************************* 

£1576] 

49 98 

REM ** ETABLIR UN PARCOURS 

[16173 


****** 

2920 LDCATE #1 , 6 , 1 : PRï NT# 1 , "VOULEZ [1822] 
-VOUS ?" 

2925 LDCATEftl, 1,. 
er une ville " 

2930 LQCATE#i,i,3: 
lir un parcours“ 

2940 LOCATE# 1,1.4: 
cer ■” 


?-PR3NT#l, " 1- Situ [2924] 
P RIN T # 1, 11 2 - Et ab [39033 
: PRI NT# 1 , "3- Ef t a [ 1381.1 


** 

4999 REM ********** 

« ***** 

2000 CLS# 1 * 

5010 LOCATE#1,1.1:PRINTil,"VILLE 0 
RIGINE ?" 

5020 LOCATE# 1 . 1 , 4 ; P F: IN T # ! , "fl Four 
le Menu" 

5030 WINDQW#3,12.33.23,23:PAPER#3, 


[15761 

[3731 

[39923 

[19471 

[24611 


T r** Pi /*i 

V V V 

WIND0W#2,31 , 33.22,22:PAPER#2 . 

3 j i / J 

2 : CLS#3 


2 : PEN#2 , 

•y . r -1 r>in 
v' « LLSffi 


5040 PEN#3 . 3î LOCATE#3 , i,1:INPUT#3, 

r nCCIT 

U jj*. J 

3010 

I N P U T #2 . 11 " ,>: 

r 7 n t 7 

L / C / J 

" " , VF 


3Q20 

r*• : r' 
I_ £3 

i* 9 

[ 372 3 

5050 IF V$="M" THEM 2915 

£145: , 

3 0 3 0 

r r* 

i r 

x O AMD x y 3 THE N 3 0 ! 0 

[3513 

5060 GOSUB 10000 

£10143 

3040 

I 

>: = 1 THEM GOTO 4000 

[12043 

5070 GRAPHICS FEN 3 

[947 ] 

3050 

T C 

i . 

X = 2 THEM SCTC 5000 

r 7 a 7 ] 

5080 PLOT X.Y 

[ 4 7 i 3 

3 U 6 0 

IF 

>: - 3 THEM GOTO 6000 

r 5 2 7 

5031 GRAPHICS PEN 2 

[ 948 ] 

3997 


************************* 

[1576] 

5082 PL0T X, Y + l: PLOT X,Y -1 : P L 0 T X * 

[ 3692] 

* * * * * 

* 



1,Y:PLOT X - 1, Y : PLOT X,Yt2:PL0T X.Y 


3998 

r- r m 
r. L r. 

** SITUER UNE VILLE 

[ 754] 

-2:PLOT X + 2,Y : PLOT X - 2,Y 


4* 



5100 LOCATE#!,1,1 : PRIMT#1,"VILLE D 

[44473 

3999 

REM 

************************* 

[15761 

ESTIMATION ?" 


4 1 HHHf- * 



5110 CLS#3 : PEN#3, 3:■ LGCA : E#3. 1,3: IN 

121 i G J 


4000 CL S # 1 

[ 3733 

PUT# 3 

. "" , VF 



4010 LOCATE#!,1,1:PR JMT#1,"QUELLE 

[2746] 

5120 

t r >,}$ — 'i m " THE2915 

r 

1451 3 

VILLE ?" 


5130 

GOSUB 10000 

I 

1 01 4 3 

4015 LOCATE#!,1,4 : PR I NT#1, " M Pour 

[1947] 

5140 

G R A F HIL S ? E1: 3 

i 

? 4 7 3 

le Menu" 


cr - Cj •) 

DRAW X.Y 

r 

1 2 9 ] 

4017 WIND0W#3,12,33.23,23:PAPER#3, 

[2461.1 

t 1 

GRAPHICS PEN 2 


•ÿ *4 >1 1 

2 : C L S # 3 


C.- 1 C TT 

P LOI X , Y + l : P L C T X . Y -1 i P L D 5 X -t 


O r % *! 

•J* C? . -i- J 

4020 FEN#3,3:L0CATE#3,1,1:IMPOT#3. 

p 7 tr er n -i 

1. Y : P 

LOT x-1. Y ; P L D T X . + 2: PL 0 T X, Y 



<1 

■¥t 


- 2 : !-' L 

j ? >, + i , t : *• L A , T 



4030 IF V % = " M " THEM 2915 

i- i .i r ’ i 

L i 4 j i j 

5 i 5 5 

IF X = 6 4 0 T H E M P LOT 0 , 2 0 0 

- 

l*h: : 

4040 GOSUB 10000 

f i i ) 1 il 1 

L i v i . J 

5 ! 56 

If X*0 THEM PLOT 640.200 

* 

1 i t: } i . 

4045 GRAPHICS PEN 3 

n ii 7 -i 

U *1 / 5 

5 16 0 

GOTO 5100 



4050 PLOT X.Y 

r k ~T * 7 

L *# / A - 

iTQÇV T 

rem ********** * * * * » * » * * * * * t * » 

L 

1 c j 7 h 2 





















5998 REM ** 


EFFACER LA CARTE 


C1468] 


5999 REM ************************* [1576] 
****** 

6000 FOR K = 0 TO 639 STEP 4 [1808] 

6010 MOVE K,0J DRAW K,399,0 [585] 

6020 NEXT K. [373] 

6030 FOR K=2 TO 640 STEP 4 [1282] 

6040 MOVE K , 0 : DRAW K,399,0 [585] 

6050 NEXT K [373] 

6060 GOTO 900 [320] 

9997 REM ************************* [1576] 
****** 

9998 REM ** VILLES PROGRAMMEES [2514] 
** 

9999 REM ************************* [1576] 
****** 

10000 Z=0 [343] 

10001 IF Vf= "BANGKOK" THEN X = 520ï Y [3909] 
= 191:Pf=" THAÏLANDE":Z=1 

10005 IF Vf="PARIS“ THEN X=301;Y=2 C28643 
77:Pf="FRANCE": Z = 1 

10010 IF Vf=“NEW YORK" THEN X = 145: [2263] 
Y=262:Pf="USA" : Z = 1 

10015 IF Vf= 11 ATHENES" THEN X = 344: Y [3368] 
=248:Pf~"GRECE":Z=1 

10020 IF Vf="MOSCOU" THEN X = 366:Y= [2326] 
299:Pf="URSS":Z=1 

10025 IF Vf="LENINGRAD" THEN X=350 [2857] 
:Y=311:Pf="URSS":Z=l 

10030 IF Vf=" COLOMBO" THEN X = 473: Y [3189] 
=174:Pf="SRI LANKA":Z=1 
10035 IF Vf="ROME" THEN X=322:Y=25 [1539] 
7s Pf="ITALIE":Z = 1 

10040 IF Vf="BOMBAY” THEN X=456:Y= [3901] 
206 :Pf="INDE":Z = 1 

10045 IF Vf= ”TACHKENT" THEN X = 438: [3651 ] 
Y=263:Pf="URSS"sZ=l 

10050 IF Vf = "SAMARKAND" THEN X = 433 [1771] 
:Y=258:Pf="URSS":Z=1 

10055 IF Vf="BAKOU" THEN X=397:Y=2 [3015] 
58:Pf="URSS“s 2 = 1 

10060 IF Vf="MANAMA" THEN X=404:Y= [3027] 
221sPf="BAHREIN":Z=l 

10065 IF Vf="AMMAN" THEN X=372:Y=2 [2926] 
35 :Pf = "JORDANIE”:Z = 1 

10070 IF Vf="FRANCFORT" THEN X = 312 [2425] 
:Y=280:Pf=”RFA":Z=l 

10075 IF Vf="BOUKHARA" THEN X = 428: C2511] 
Y=256:Pf="URSS":Z=1 

10080 IF Vf="EREVAN" THEN X=388:Y= [2913] 
256:Pf="URSS":Z=1 

10085 IF Vf="MADRAS" THEN X = 473:Y= [2451 ] 
191 :Pf=”INDE“:Z = 1 

10090 IF Vf="URGENTCH” THEN X=420: [2939] 
Y=262:Pf="URSS"s Z = 1 


10095 IF Vf= "MARRAKECH" THEN X = 281 
:Y=231:Pf="MAR0C":Z=l 
10100 IF Vf="AGADIR" THEN X=275:Y= 
228s Pf= 11 MAROC ":Z = 1 
10105 IF Vf="BORDEAUX" THEN X = 294: 
Y=266sPf="FRANCE"s Z = 1 
10110 IF Vf="TOULOUSE" THEN X=299s 
Y=264:Pf = "FRANCE": Z = 1 
10115 IF Vf = " L IMOGES" THEN X = 299:Y 
=270:Pf="FRANCE":Z=1 
10120 IF Vf="DENVER" THEN X=80:Y=2 
66 :Pf="USA":Z = 1 

10125 IF Vf="SAN FRANCISCO" THEN X 
=41:Y=264:Pf="USA":Z=! 

10130 IF Vf ="L0S ANGELES" THEN X = 4 

7: Y=251 :Pf="USA":Z = 1 

10135 IF Vî="MEXICO" THEN X = 77: Y = 2 

09:Pf="MEXIQUE " :Z = 1 

10140 IF Vf="MONTERREY" THEN X=80: 

Y=225:Pf="MEXIQUE"s Z=1 

10145 IF Vf="HOUSTON" THEN X=95:Y= 

236:Pf="USA": Z = 1 

10150 IF Vf="ANCHORAGE" THEN X=26: 

Y=356:Pf="ALASKA" : Z = 1 

10155 IF Vf="LA HAVANE" THEN X=116 

:Y=216:Pf="CUBA":Z=1 

10160 IF Vî = "PORT AU PRINCE"THEN X 

= 136 : Y = 204 : Pf="HA I TI": Z = 1 

10165 IF Vf="WASHINGTON" THEN X=13 

6:Y=257:Pf="USA":Z=l 

10170 IF Vf = "QUEBEC" THEN X = 155:Y = 

279:Pf="CANADA":Z=1 

10175 IF Vî="ÛTTAWA" THEN X = 144s Y = 

276s Pf="CANADA":Z=1 

10180 IF Vf="CHICAGO" THEN X = 118: Y 

=268:Pf="USA":Z=1 

10185 IF Vf = 11 DETROIT" THEN X = 128s Y 
=269 :Pf="USA":Z = 1 

10190 IF Vf = "MONTREAL" THEN X = 149: 

Y=275:Pf=“CANADA":Z=1 

10195 IF Vf="ST LOUIS" THEN X=110: 

Y=260:Pf="USA"s Z = 1 

10200 1F Vf= "MADRID" THEN X = 288:Y= 

254 : pf = 11 ESPAGNE 11 : Z = 1 

10205 IF Vf="LONDRES" THEN X = 296:Y 

=284 : Pf = "GRANDE BRETAGNE 11 : Z= 1 

10210 IF Vî = "DUBLIN" THEN X = 2B3:Y = 

289 :Pt="I RLANDE":Z = 1 

10215 IF VÎ="LISBONNE" THEN X=277s 

Y=249sPf="PORTUGAL":Z=1 

10220 IF Vf = "RABAT" THEN X = 281:Y=2 

36:Pf="MAROC"s Z = 1 

10225 IF Vf= "LE CAP" THEN X = 334:Y = 

79:Pf = "AFRIQUE DU SUD”:Z = 1 

10230 IF Vf="NAIROBI" THEN X = 377: Y 

= 156 :Pf="KENYA":Z = 1 

10235 IF Vf= "KHARTOUM" THEN X = 368: 


[2919] 


C2631 ] 


[ 2202 ] 


[2861 ] 


[3135] 


[2004] 


[2652] 


[2357] 


[3178] 


[2369] 


[ 4101 ] 


[2238] 


[2551 ] 


[3328] 


[2322] 


[2672] 


[3425] 


14457] 


[ 1695] 


[2727] 


[2062] 


[2640] 


[3222] 


[3293] 


C2240] 


[2749] 


[3102] 


[21051 


[ 2012 ] 









VV-* 





Y=194 : F"$ = "SOUDAN" : Z = 1 

10240 IF VI="DJIBOUTI" THEN X = 392: 

Y=187 :PI* "DJ IBOUT I" : Z* 1 

10245 IF V$="YAGUNDE" THEN X = 321 : Y 

= 168 : F'l= "CAMEROUN" : Z* 1 

10250 IF VI*"LAGOS" THEN X=305:Y=i 

73:PI*"NIGERIA":Z=1 

10255 IF VI* "COTONOU" THEN X = 301 : Y 

=173:Pt=“BENIN":Z=l 

10260 IF VI* "KABOUL” THEN X=441:Y= 

243: Pl="AFGHANISTAN" : Z - 1 

10265 IF VI*"TIRANA" THEN X=336:Y= 

256:PI="ALBANIE":Z=1 

10270 IF VI*"ALGER" THEN X=302:Y=2 

44:PI*"ALGERIE":Z=1 

10275 1F V$="BONN" THEN X=309:Y=28 

2:Pf="RFA":Z=l 

10280 IF VI*"BERLIN" THEN X = 322:Y = 
288: PI*"R'DA" : Z = ! 

10285 IF VI* "LUANDA" THEN X = 325: Y = 

139:Pl="ANGOLA":Z*1 

10290 IF VI*"RIYAD" THEN X=397:Y=2 

17:PI*"ARABIE SAOUDI TE":Z=1 

10295 IF VI*"BUENOS AIRES" THEN X= 

173:Y=74:Pl="ARGENTINE":Z = 1 

10300 IF VI*"CANBERRA" THEN X=608: 

Y = 53: F'l = " AUSTRAL IE” : Z = l 

10305 IF VI*"VIENNE" THEN X = 327 Y* 

276 :P!="AUTRICHE":Z=1 

10310 IF VI*"NASSAU" THEN X=128:Y= 

221 : F'I* " BAHAMAS “ : Z = 1 

10315 IF V$ ="DACCA" THEN X = 491:Y=2 

19:PI="B'NGLADESH":Z=1 

10320 IF V$="BRIDGETOWN" THEN X=16 

4:Y*190:PI="BARBADE” :Z=1 

10325 IF VI*”BRUXELLES" THEN X=305 

:Y=282:PI*"BELGIQUE" : Z = 1 

10330 IF Vl= "BELMOPAN" THEN X = 102: 

Y-204 : Pl= "BEL I Z E 11 : Z = 1 

10335 IF VI*"PORTO NOVO" THEN X = 30 

0:Y=173:Pl="BENIN":Z=1 

10340 IF VI = "T HIM B U" THEN X*490:Y* 

229 : PI*"BHOUTAN" : Z* 1 

10345 IF VI*"RANGOON" THEN X=507:Y 

-201 :Pl="BIRMANIE" : Z = 1 

10350 IF V$ = “ LA PAZ" THEN X = 144: Y = 

120:P*="BOLIVIE": Z*1 

10355 IF VI*"SUCRE" THEN X=153:Y=1 

16:Pl="BOL IVIE":Z = 1 

10360 IF Vi = "GABORONE” THEN X = 351 : 

Y* 102 : F'I* " BOTSWANA " : Z = 1 

10365 IF VI* "BRASILIA" THEN X = 190: 

Y=122:P$="BRESIL":Z = 1 

10370 IF VI*"RIO" THEN X = 2025 Y =104 

: P*="BRESIL”:Z = 1 

10375 IF VI*"SOFIA" THEN X=343:Y=2 
61:PI*"BULGARIE":Z*1 


C 3389 3 


[2671 3 


£23923 


£21043 


£2104 3 


£3409 3 


£26153 


£26773 


£2501 3 


£30203 


£24163 


£27653 


£2781 3 


£37573 


£40533 


£39133 


£ 3110 3 


£2203 3 


£28153 


£23473 


£29233 


£27593 


£28443 


£28133 


£13703 


£3851 3 


10380 IF V$="VARNA" THEN X=352:Y=2 

60:PI*"BULGARIE":Z=1 

10385 IF VI* "OUAGADOUGOU" THEN X=2 

92:Y*186:P$ = "BURKINA FASO": Z = 1 

10390 1F VI*"BUJUMBURA" THEN X=361 

: Y =151 :Pf="BURUNDI": Z = 1 

10395 IF V$="PHNOM PENH" THEN X = 52* 

8 :Y=191 :P$ = "CAMBODGE“:Z = ! 

10400 IF V $ = " P R AIA" THEN X=242:Y=Î 

92:Pt="CAP VERT":Z*I 

10405 IF VI="BANGUÎ" THEN X = 337: Y = 

168: PI* 11 CENTRAFRIQUE" : Z = 1 

10410 IF VI =i 'SAN7I AGD" THEN X=14é:' 

Y=7 4 : Pt*' 1 CHILI 11 : Z -1 

10415 IF V!="P E KIN" THEN X*535:Y*2 

69:PI*"CHINE":Z=1 

10420 IF VI*"NICOSIE" THEN X*366:Y 

=242:Pl=“CHYPRE" : Z = l- 

10425 IF VI*"BOGOTA" THEN X = 130: Y = 

170:P$= ”COLOMBIE":Z=1 

10430 IF V$="MORONI" THEN X=392:Y* 

132:P$=“COMORES":Z=1 

10435 IF V$= 11 BRAZZAVILLE" THEN X = 3 

28:Y*150:PI*"CONGO":Z=1 

i0440 IF VI*"PYONGYANG" THEN X = 555 

:Y-270:PI*"COREE DU NORD":Z = 1 

10445 IF VI*"SEOUL" THEN X=558:Y*2 

66: Pl= "COREE DU SUD":Z*.l 

10450 IF VI*"SAN JOSE" THEN X = 108: 

Y=184:PI="COSTA RICA"ï 2 = î 

10455 IF VI*"ABIDJAN" THEN X*287:Y 

*169:PI*"COTE D* IVOIRE": Z*1 

10460 IF V$ = "COPENHAGUE" THEN X = 31 

9: Y = 296:Pl="DANEMARK” : Z*1 

10465 IF VI**LE CAIRE" THEN X=362s 

V=232:PI*"EGYPTE" : Z = î 

10470 IF V $ ="S A N SALVADOR" THEN X* 

98:Y*194:PI*"EL SALVADOR":Z=1 

10475 IF Vl="QUITO" THEN X = 119ï Y =i 

58:PI*"EQUATEUR" : Z = 1 

10480 IF VÎ="ABOU DH AB I " THEN X -= 4 1 

3:Y=217:Pt="EMIRATS ARABES UNIS":Z 

“ S 

10485 IF Vl="ADDIS A B E B A" THEN X*3 

81 : Y*180:PI = "ETHIOPIE" : Z = 1 

10490 1F VI*"BEYROUTH” THEN X = 371 ; 

Y = 239 ; F"t= " LI BAN " : 2 = 1 

10495 IF VI*"HELSINKI" THEN X=340: 

Y*312:PI*"FINLANDE":Z = 1 

10500 IF VI*"LIBREVILLE" THEN X*31 

7:Y*160:PI*"GABON": Z*J 

10505 IF V * -"9 AN JUL" THEN X = 259:Y* 

189:P$="GAMBIE":Z=1 

10510 IF VI*"ACCRA" THEN X*29!•, Y'■ 1 

71 : PI*GHANA " ; Z* 1 

10515 IF VI* "GUATEMALA" THEN X = 96 s 

Y * 19 6 : P T * " G U A T £ M A L. A " : Z=! 


£27843 


£35483 


L 3 3 0 6 3 


£28453 


£23703 


£18223 


£18103 


£26543 


£29783 


£28373 


: 3133 3 


£21683 


£26033 


£2721 3 


£49693 


r •* = a » 1 

- u! *T J 


£34903 


£40093 


£3143 





10520 IF Vf="CGNAKRY" THEN X = 2é6: Y [19411 
= 180:Pf="GUINEE"s Z = 1 

10525 IF VÎ="8ISSAU" THEN X=261:Y= C3478J 
186:PÎ=" GUINEE-BISSAU":Z=! 

10530 IF Vf = " MALABO" THEN X = 315:Y= E35293 

167:Pf="GU-INEË-EQUAT0RIALE":Z = l 

10535 IF Vî="GEQRGETOWN" THEN X=16 C31491 

5:Y=175:Pf=" GUYANA":Z = 1 

10540 IF Vf = "TEGUCIGALPA" THEN X=l [29941 

02:Y=195:Pf="HONDURASZ=1 

10545 IF Vf="HONG KONG" THEN X=545 [32601 

! Y = 218!Pf = ”HONG KONG"iZ«1 

10550 IF Vf="BUDAPEST" THEN* X = 334: [23111 

Y = 273:Pf=" HONGRIE"iZ = l 

10555 IF Vf="DELHI" THEN X=461:Y=2 [16021 
30s Pf = "INDE":Z = 1 

10560 IF Vf = "JAKARTA" THEN X = 534:Y [25191 
= 144:Pf="INDONESIE" :Z=1 
10565 IF Vf="BAGDAD" THEN X=389:Y= [28651 
238:Pf="IRAK"sZ=1 

10570 IF Vî = "TEHERAN" THEN X = 403: Y [30931 
=244 :Pf="IRAN": Z = 1 

10575 IF Vf="REYKJAVIK" THEN X=258 [23791 
!Y=324!Pf="ISLANDE "iZ = l 
10580 IF Vî="JERUSALEM" THEN X=370 [44171 
!Y=234iPf="ISRAËL"iZ=l 

10585 IF Vf = "KINGSTON" THEN X = 127: [27861 
Y=203:Pf="JAMAÏQUE"!Z=1 
10590 IF Vf="TOKYO" THEN X=587:Y=2 [32981 
64:Pf="JAPON": Z = 1 

10595 IF Vf="KOWEÏT" THEN X=398:Y= [19591 
229!Pf*"KOWEÏT" !Z = 1 

10600 IF Vf="VIENTIANE" THEN X=520 [25793 
!Y=206:Pf="LADS“s Z = 1 

10605 IF Vf="MASERU" THEN X=354:Y= [40251 
91:Pf="LESOTHO ":Z=f 

10610 IF Vf="BEYROUTH" THEN X=371: [31551 
Y=239î Pf = 11 LIBAN" ! Z = 1 

10615 IF Vf="MONROVIA" THEN X = 272i [25031 
Y=173:Pf="LIBERIA":Z=1 

10620 IF Vî="TRIPOLI" THEN X = 324: Y C24853 
=234:Pf = "LIBYE" :Z = 1 


10655 IF Vf= "PORT LOUIS" THEN X = 42 [35971 

2iY=110:Pf="ILE MAURICE": Z = 1 

10660 IF Vf="NOUAKCHOTT" THEN X = 26 [29441 

2!Y=199:Pf="MAURITANIEZ=1 

10665 IF Vf= "QULAN BATOR" THEN X = 5 [30081 

06iY=292:Pf="MONGOLIE": Z = 1 

10670 IF Vf = ,, MAPUTO" THEN X = 367: Y = [31391 

99:Pf="MOZAMBIQUE”:Z=1 

10675 IF Vf="WINDHOEK" THEN X = 332 ï [3841 1 
Y=108:Pf="NAMIBIE":Z=1 

10680 IF Vf="KATMANDOU" THEN X=479 [17901 
:Y=229:Pf="NEPAL":Z = 1 

10685 IF Vf="MANAGUA" THEN X=104:Y [38251 
= 190: Pf = "NICARAGUA Z= 1 
10690 IF Vf= "NIAMEY." THEN X = 301:Y= [28961 
190: Pf = “NIGER" Z = 1 

10695 IF V f = " 0 S L 0 " THEN X = 314 : Y = 3 0 [29291 
8:Pf="NORVEGE":Z = 1 

10700 IF Vf="MASCATE" THEN X=422:Y [17921 
=215!Pf="OMAN":Z=1 

10705 IF Vf="KAMPALA" THEN X=369:Y [19561 
=160:Pf="OUGANDA":Z=1 

10710 IF Vf="ISLAMABAD" THEN X = 449 C33793 
: Y = 241 !Pf«"PAKISTAN" !Z = 1 
10715 IF V$="PANAMA" THEN X =11S ï Y = [25821 
182iPf="PANAMA"iZ=1 

10720 IF Vf = "A3tlNCI0N" THEN X = 171 : [41241 
Y=99 :P$="PARAGUAY" : Z = 1 

10725 IF Vt = "AMSTERDAM" THEN X = 305 C30860 
:Y=2S7:Pf="PAYS-BAS":Z=1 
10730 IF Vf="LA HAYE" THEN X=303:Y [14081 
= 286:Pf="PAYS-BAS" : Z = 1 

10735 IF Vf="LIMA" THEN X =124 : Y =13 [27021 
0: Pf = "PEROU":Z = 1 

10740 IF Vf="MANILLE" THEN X = 562: Y £24961 
=200:Pf="PHILIPPINES":Z=1 
10745 IF Vf="VARSOVIE" THEN X = 33é: [33571 
Y=289:Pf="POLOGNE":Z=1 

10750 IF Vf="SAN JUAN" THEN X = 150: [ 32581 
Y=202:Pf="PORTO RICO":Z = 1 
10755 IF Vf="DOHA" THEN X = 406:Y = 21 C22263 
9: Pf » "QATAR." : Z = 1 


= 30 


[30471 

[44661 


[24951 


10625 IF Vf="LUXEMBOURG" THEN X 
7:Y=279:Pf="LUXEMBOURG":Z=1 
10630 IF Vî="ANTANANARIVO" THEN X= 

400 :Y=114:Pf="MADAGASCAR":Z = 1 
10635 IF Vf=“LILONGWE" THEN X=371: 

Y=127:Pf="MALAWI":Z=1 
10640 IF V f ="K U A L A LUMPUR" THEN X = 

522:Y=168:Pf = "MALAYSIA" :Z = 1 

10645 IF V f = " B A M A K 0 " THEN X = 278:Y = 

188:Pf="MALI":Z=1 

10646 IF Vf="BAMAKO" 

10647 IF Vf="BAMAKO" 

" : G 0 S U B 40000 
10650 IF Vf="LA VALETTE" 

6:Y=241;Pf="MALTE":Z=1 

WZ IlPü 


[40931 
C 3079 3 


THEN Y=188 
THEN Pf="MALI 


[18361 


[20781 


THEN 


[19941 


10760 IF Vf="PRETORIA" THEN X=357: [28731 
Y=100:Pf="AFRIQUE DU SUD":Z = 1 
1 0765 IF Vf="BUCAREST" THEN X = 348: [23261 
Y=267:Pf="ROUMANIE":Z=1 

10770 IF Vf= "KlGALI" THEN X = 362:Y= [24691 
i 55:Pf="RUANDA": Z = 1 

10775 IF Vf="DAKAR" THEN X=258:Y=1 [14711 
92 :Pt="SENEGAL":Z = 1 

10780 IF Vf="FREETGWN" THEN X=267: [36411 

Y = 1 77:Pf= "SIERRA LEONE":Z = 1 

10785 IF Vf= "SINGAPOUR" THEN X = 528 [3021 3 

:Y=162:Pf=“SINGAPOUR":Z=1 

10790 IF Vf = "MOGADISCI0" THEN X = 39 [36171 

7:Y=163:Pf="SOMALIE":Z=1 

10795 IF Vf="STOCKHOLM" THEN X = 323 [28113 





















: Y—308:Pf="SUEDE": 2 = 1 

10300 IF Vî="BERNE” THEN X=31i:Y=2 £23333 
72:Pf="SUISSE":Z=1 

10805 IF Vf="DAMAS" THEN X = 373: Y = 2 [3052] 
3 8 : P $ ="S Y RIE":Z = 1 

10810 IF VI="PARAMARIBQ" THEN X = 17 £3349] 
2 :Y=173 :Pf="SUR I NAM”:Z=1 
10815 IF Vf="PfiLMA” THEN X = 302ï Y = 2 [2929] 
52:pf="BALEARES” i Z = 1 

10820 IF Vf*"KARACHI" THEN X = 440: Y [5108] 
= 220:Pf = ”PAKISTAN" : 2 = 1 

10825 IF Vî=”DAR ES SALAAM" THEN X [3345] 
= 383:Y=144:Pf="TANZANIE": Z = 1 
10830 IF Vf="NDJAM£NA" THEN X = 329: [1591] 
Y = 1S 7 :Pf="TCHAD":Z = 1 

10835 IF Vf="PRAGUE" THEN X=324:Y= [3749] 
280: Pf="TCHEC0SL0VAQUIE":Z = 1 
10840 IF Vf="LOME" THEN X=299:Y=17 [2139] 
2:Pf = "TOGO": 2 = 1 

10845 IF Vf="TUNIS" THEN X = 31 7: Y = 2 [2655] 
44:Pf="TUNISIE" : 2=1 

10350 IF Vf=“ANKARA" THEN X=363:Y= [3909] 
254 :Pf*"TURQUIE":Z = 1 

10855 IF V f ="M D N T E VID E 0" THEN X = 1 7 [ 1568] 
7:Y=75:Pf="URUGUAY": 2 = 1 

10360 IF Vf*"CARACAS" THEN X = 146: Y [2240] 
= 184:Pf= "VENEZUELA": 2 = 1 

10865 IF Vf="HANOI" THEN X = 526: Y = 2 [3077] 
14:Pf=" VIETNAM":Z = 1 

10870 IF Vf="SANA" THEN X=393:Y=19 [1336] 
5:Pf*" YEMEN" : Z*1 

10875 IF Vf = , 'ADEN' 1 THEN X = 395:Y=18 [2971 ] 
9:Pt*"YEMEN DU SUD":2=1 

10880 IF Vf = "BELGRADE" THEN X = 337: [3600] 
Y=266:Pf="YOUSGOSL.AVI£";Z = l 
10885 IF V$=”KINSHASA" THEN X = 330s [1371] 
Y= 148: F"t = "ZAÏRE" : 2 = 1 

10890 IF V f ="L U S A K A " THEN X = 358:Y= [2427] 
124 :Pf="Z AMBIE“:Z = I 

i0395 IF Vf="BANGALORE" THEN X = 467 [3117] 
:Y=191 :Pf = "INDE":Z = 1 

10900 IF Vf=“ORAN" THEN X=302:Y=24 [3320] 
4:Pf=“ALGERIE":Z=l 

10905 IF V f ="D J E R 8 A" THEN X = 319 s Y= [ 1875] 
237:Pf="TUNISIE":Z=1 

10910 IF Vf="DUBRQVNIK" THEN X=332 [2469] 
:Y=260:P$="YOUGOSLAVIE":Z=1 
10915 IF Vf="CGCHIN" THEN X = 466:Y= [2601 ] 
181 :Pf*"INDE":Z=l 

10920 IF Vf="TRICHY" THEN X=46?:Y= [2222] 
1 34 :Pf=”INDE":Z = 1 

10925 IF Vf="TAIP£r' THEN X = 558: Y = C2! 12] 
228:Pf = 11 TAIWAN ":Z=1 

10930 IF Vf="IBIZA" THEN X=299:Y=2 [3498] 
49: F'f= "BALEARES" : Z = 1 

10935 IF V f = " T E N E R1F E" THEN X = 2 6 0 : [27113 


10940 IF Vf="SANTA CRUZ" THEN X=26 12516] 
2:Y*224:Pf*"CANARIES":Z=1 
10945 IF V f = " L A PALMA" THEN X = 257 : [2629 ] 
Y = 224:Pf="CANARI ES" :Z=1 

10950 IF V$= "LAS PALMAS" THEN X = 26 [3717] 

3:Y=222:Pf*"CANARIES “:Z = 1 

10955 IF Vf="ISTANBUL" THEN X=355: [2379] 

Y=257 :Pf="TURQUIE":Z=1 

10960 IF Vf*"IZMIR" THEN X=351:Y=2 [2608] 

49:Pf="TURQUIE":Z=1 

10965 IF Vf="M0f1BASA J ' THEN X = 384:Y [3515] 
=150:Pf="K'ENIA":Z=1 

10970 IF Vf="f ? ORT DE FRANCE" THEN [2173] 

X=160:Y*194:Pf*“MARTINIQUE":2=1 

10975 IF Vf="POINTE A PITRE" THEN [3433] 

X = 160: y*190iPf«"GUADELOUPE":Z*I 

10980 IF Vf="ACAPULCO" THEN X = 72: Y [35243 

=204:Pf*"MEXIQUE":2=1 

10985 IF Vf="MANAUS" THEN X=161 :Y= [3397] 

152 :Pf = "BRESIL “ : Z = 1 

10990 IF Vf="BOSTON" THEN X=152:Y= [24823 
266:Pf="USA":Z=1 

10995 IF Vf="AS80UAN" THEN X = 36S ; Y [16903 
=214:P$="EGYPTE":Z=1 

1 1000 IF Vf*"IRKOUTSK" THEN X = 496: [3751J 
Y=304 :Pf="URSS": 2 = 1 

11005 IF Vf="KHABAROVSK" THEN X=56 [29313 
1 :Y=304:Pf = "URSS": 2 = 1 

11010 IF Vf*"KIEV" THEN X = 354:Y = 28 [22133 
3:Pf*"URSS": 2 = 1 

11015 IF Vf*"YALTA" THEN X*364sY=2 [33903 
64:Pf="URSS": 2 = 1 

11020 IF Vf*"KYOTO" THEN X=580:Y*2 [31633 
62:Pf="JAPON": 2 = 1 

11025 IF Vf="CHANGHAI" THEN X=554: [2844] 
Y--245: Pf = "CHINE" : Z = î 

11030 IF Vf*"SYDNEY ” THEN X=617:Y= [3520] 
57:Pf="AUSTRALIE":2=1 

1 1035 IF Vf = "MELBOURNE'' THEN X = 596 [ 35323 
:Y=46:Pf="AUSTRALIE":Z=î 
1 1040 IF Vf="CALCUTTA M THEN X = 487 ï [2581 3 
Y=216:Pf="INDE": 2=1 

11045 IF Vf="VANCOUVER" THEN X=51: [3066] 
Y=302:Pf*"CANADA“: 2 = 1 

1 1050 IF Vf=”DALLAS" 'THEN X = 39:Y = 2 [14343 
42:Pf="USA": 2 = 1 

1 1055 IF Vf="IHAMI“ THEN X = 122: Y = 2 £21833 
23:Pf*"USA": 2 = 1 

11060 IF Vf*"PALERME" THEN X*324:Y [33723 
= 248:Pf="SICILE": 2 = 1 

11065 IF Vf*"OSAKA" THEN X«5S0;Y=2 [16933 
59:Pf="JAPON": 2=1 

23000 IF Vf*"ES’’" THEN X = 640: Y=200 [10983 
: 2 = 1 

29000 IF V $ ="C U E S T" T HE N X = 0:Y = 200 [18113 

, 7 - < 

« u i 

30000 RETURH 15533 













LISTING 


Cette calculatrice 
scientifique sera d’un 
grand secours à toutes 
les personnes, ly¬ 
céens, étudiants ou 
autres, qui ayant in¬ 
vesti leurs économies 
dans l’achat, ô com¬ 
bien méritoire, d’un 
magnifique Amstrad 
CPC 464,664 ou 6128, 
se retrouvèrent sans 
recours quand l’heure 
du calcul fut venue. 
Que celui qui n’a pas 
besoin d’une calcu¬ 
lette auprès de sa 
machine préférée me 
jette la première 
pierre. (NDLR : je 
peux ?) 

La version cassette comporte 
deux programmes, le premier 
(CALCUL) dessine la calcula¬ 
trice et appelle le programme de 
simulation (SIMUL). Il suffit, 
pour la version cassette de rem¬ 
placer la ligne 1720 par : 1720 
RÙN “SIMUL”. 

La version disquette est compo¬ 
sée des mêmes programmes, 
mais le dessin réalisé par DES- 
CALC (ex CALCUL) est sauve¬ 
gardé automatiquement dans un 
fichier “ECRAN.BIN.”. Le 
programme CALCUL (ex. 
SIMUL) chargera d'abord cette 
image avant d’effectuer la simu¬ 
lation. Ainsi les deux versions 
démarrent de la même manière 
par un RUN “CALCUL”. 

Mise en marche 

Comme pour toute calculatrice, 
il est nécessaire de mettre la 
machine sous tension avant 
toute utilisation. Pour cela il suf¬ 
fit de déplacer le point clignotant 
(rouge sur un moniteur couleur) 
avec les touches fléchées ; lors¬ 
que le curseur est sur la touche 


marquée <OFF>, il suffit de 
cliquer la barre < ESPACE > 
pour valider le choix, on verra 
alors un ON s’afficher, alors que 
l’écran de la calculatrice affi¬ 
chera 0. La machine est prête... 
L’entrée des données pourra se 
faire de deux façons : 

- à l’aide des touches fléchées, 
il suffit d’amener le point cligno¬ 
tant sur la touche choisie et de 
valider avec la barre 
< ESPACE> . On pourra ainsi 
entrer tous les chiffres, toutes les 
opérations, toutes les fonctions, 
choisir de calculer en degrés 
(DEG) ou radians (RAI)) pour 
les fonctions circulaires (SIM, 
COS, TAN) et leurs fonctions 
réciproques (ARC SIN, ARC 
CONS, ARC TAN), calculer les 
fonctions hyperboliques (HYP 
SIN, HYP COS, HYP TAN) et 
leurs inverses (ARC HYP SIN, 
ARC HYP COS, ARC HYP 
TAN) ; ou même choisir de sup¬ 
primer le BIP sonore ponctuant 
chaque entrée en cliquant 
<ESPACE> le curseur étant 
sur la touche marquée d’une 
note. 

- l'entrée des chiffres, des opé¬ 
rations (+ - x /) pourra se 
faire directement sur le clavier 
du CPC, de même, pour le point 
décimal (le programme accepte 
indifféremment le point décimal 
et la virgule). On pourra effec¬ 
tuer un calcul en appuyant sur 
la touche “ = ” au clavier ou en 
appuyant sur la touche 
<RETURN>. L’entrée d’un 
exposant (EE sur la calculatrice) 
pourra être réalisée directement 
avec la touche et le calcul 
d’une racine nième avec-la tou¬ 
che <arobas> (a). 

Ecran de visualisation 

L’écran de visualisation est 
divisé en deux parties : 

- une partie mantisse permet¬ 
tant d’afficher neuf chiffres 
significatifs plus un octet de 
signe en décimal ; le calcul en 
hexadécimal est signalé par un 

en lieu et place du signe et 
quatre chiffre hexadécimaux 
(0000 à FFFF) sont affichés. 


— une partie exposant à droite 
de la mantisse permettant d’affi¬ 
cher les exposants de 00 à 37 (le 
calcul simple précision t du 
BASIC Locomotive impose cette 
contrainte), munis du signe + 
ou -. 

Touches de fonction 

RAD OU DEG : suivant l’indi¬ 
cation visualisée les valeurs 
seront considérées comme étant 
des degrés ou des radians (utile 
pour les fonctions trigonométri- 
ques). 

DEC ou HEX : les calculs seront 
réalisés en décimal ou hexadéci¬ 
mal. En hexadécimal seules les 
quatres opérations sont validées. 
SIN, COS, TAN : ces touches 
donnent le sinus, le cosinus ou 
la tangente de la valeur affichée 
(en radians ou en degrés). 

HYP : cette touche permet de 
calculer les fonctions hyperboli¬ 
ques. Il suffit de choisir cette 
option avant de sélectionner 
SIN, COS ou TAÇJ pour calcu¬ 
ler le sinus hyperbolique, le cosi¬ 
nus hyperbolique ou la tangente 
hyperbolique de la valeur affi¬ 
chée. Utilisation : 
cliquer <ESPACE> sur HYP 
puis sur SIN pour voir s’afficher 
le sinus hyperbolique de la 
valeur à l’écran. 

ARC : cette touche permet de 
calculer les fonctions récipro¬ 
ques des fonctions précédentes. 
Pour les fonctions circulaires, 
cliquer < ESPACE > sur ARC 
puis sur SIN, COS ou TAN pour 
calculer les arccos, arcsin ou 
aretg. Pour les fonctions hyper¬ 
boliques, cliquer < ESPACE > 
sur ARC puis sur HYP puis sur 
SIN, COS ou TAN pour calcu¬ 
ler les argsh, argeh ou argth. 
Nota: ARC et HYP peuvent 
être utilisées dans n’importe quel 
ordre : ARC HYP SIN est équi¬ 
valent à HYP ARC SIN. 

D/R : en cliquant sur cette tou¬ 
che, on peut transformer une 
valeur en degrés ou en radians : 
si DEG est affiché -* D/R 
donne la valeur en radians. 

Si RAD est affiché - D/R 
donne la valeur en degrés. 


Ln X : donne le logarithme 
népérien de la valeur (positive 
évidemment). 

e x : donne l'exponentielle de la 
valeur affichée. 

log X : donne le logarithme déci¬ 
mal de la valeur (positive) affi¬ 
chée. 

X* : donne le carré de la valeur 
affichée. 

vx : donne la racine carrée de la 
valeur (positive) affichée. 

1/X : donne l’inverse de la 
valeur affichée (< >0). 

X! : calcule la factorielle de la 
valeur entière (< = 35) affichée. 
Cette limite est due au calcul en 
simple précision du BASIC 
Locomotive. 

x vy : calcule la racine Xème de 
'Y. Le résultat affiché est égal à 
Y(l/X). 

Y x : calcul de la puissance x de 
Y. 

Nota : l’utilisation de ces deux 
dernières fonctions est la sui¬ 
vante : entrer un nombre X, puis 
cliquer < ESPACE > le curseur 
étant sur la fonction choisie, 
puis entrer un nombre Y, puis 
faire = ou <RÉTURN> 
le résultat s’affiche alors sur la 
calculatrice. 

X:Y : cette touche permet 
d’inverser X et Y dans les deux 
fonctions précédentes. 

Exemple : calculer 5 <3 + 2) , 
entrer 3 + 2 = puis 5 puis X:Y 
puis Y x 

le résultat 78125 s’affiche alors. 
STO : cette touche permet de 
mémoriser le nombre affiché. 
RCL : récupération du nombre 
mémorisé précédemment. 

E : permet d’ajouter le nombre 
affiché au nombre déjà entré en 
mémoire. 

PI : affichage de la valeur : 
3.141562654. 

+ / - : si utilisé seul : change le 
signe du nombre affiché. 

Si utilisé après EE : change le 
,.signe de l’exposant. 

EE : permet d’entrer directe¬ 
ment la valeur de l’exposant. 
Exemple : 5 EE 3 équivaut à 
5x10* 

CE : annule le dernier nombre 
entré. 

C : réinitialisation de la calcula¬ 
trice. 

Silvestre Norbert 
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30 '* INITIALISA C23433 
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[175] 

[31723 


80 '* 


90 '*****«*»«»«*********««*«*«»**** 
*********************************** 
#*****#*«•* 

100 ' 

110 ' 

120 INK 0,13s INK 1,Os INK 2,15sINK 3 

130 BORDER 13:PAPER 0 
140 MODE 1 

150 MOVE 8,0:DRAWR 624,0,1:M0VE 639 
,8s DRAWR 0,384,1 

160 MOVE 632,399 :DRAWR -624,0,IsMOV 
E 0,392}DRAWR 0,-384,1 
170 ' ' 

180 DEG 

190 FOR 1=0 TO 3 

200 READ A,B 

210 ORIGIN A,B 

220 FOR J=0 TO 90 STEP 15 

230 PLOT -8*C0S < J + 90* I ),-8* 

SIN(J +90*1 ) 

240 NEXT J 

250 NEXT I 
260 ' 

270 ORIGIN 0,0 

280 MOVE 0,379:DRAWR 639,0,1 

290 MOVE 160,379:DRAWR 0,20:MOVE 48 

0,379:DRAWR 0,20 

300 TAGiMOVE 220,395 

310 PRINT "CALCULATRICE"! 

320 TAGOFF 
330 ' 

340 ' 

350 ' 

360 MOVE 179,10:DRAWR 281,0:DRAWR 0 
,360:DRAWR -281,0:DRAWR 0,-360 
370 MOVE 185,15:DRAWR 270,0:DRAWR 
,270:DRAWR -270,0:DRAWR 0,-270 
3B0 FOR 1=0 TO 270 STEP 2 
390 DRAWR 270,0:M0VE 185,154-1 
400 NEXT I 

410 MOVE 185,290:DRAWR 270,0:DRAWR 


[175] 

[2798] 


[117] 

[117] 

[1777] 


[1261] 

[506] 

[2B19] 


[3684] 


[117] 

[133] 

[474] 

[544] 

[292] 

C 820 ] 
[1816] 


[370] 

[375] 

[117] 

[298] 

[1723] 

[2103] 


[974] 

[1787] 

[1066] 

[117] 

[117] 

[117] 

[3422] 


0 [5487] 


[727] 

[6153 

[375] 

[3875] 


0,26:DRAWR -270,0:DRAWR 0,-26 


420 MOVE 215,294: :DRAWR 40,0:DRAWR 

0,18:DRAWR -40,0:DRAWR 0,-18 

430 MOVE 278,294:DRAWR 40,0:DRAWR 0 


[3559] 

[4083] 


,18:DRAWR -40,0:DRAWR 0,-18 

440 MOVE 339,294:DRAWR 33,0:DRAWR 0 

,18:DRAWR -33,0:DRAWR 0,-18 

450 MOVE 185,320:DRAWR 270,0:DRAWR 

0,45:DRAWR -270,0:DRAWR 0,-45 

460 FOR 1=1 TO 45 STEP 2 

470 DRAWR 270,0:MQVE 185,320+1 

480 NEXT I 

490 ' 

500 ' DESSIN DES TOUCHES 
510 ' 

520 SYMBOL AFTER 170 

530 SYMBOL 171,&41 ,&E2,&44,&8,fclO,fc 

20,«<47,880 

540 SYMBOL 1 93, 80,8<E2 , & 13 ,872 ,892, 8 
92,87A,80 

550 SYMBOL 194 , 80,8C6 , 829,88, 88 ,89, 
86,80 

560 SYMBOL 195,80,872 ,882,862, 8 12 , 8 
12,8E2,80 

570 SYMBOL 196,80,8.58 ,864 ,844 ,844 , 8 

44.844.80 

580 SYMBOL 197,80, 863 ,894 ,884 , £84 , 8 

94.863.80 

590 SYMBOL 198,80,88E,850,84C , £42 , 8 
42,89C,80 

600 SYMBOL 199,80,88E,8E1,887,&89,8 
89, 867,80 

610 SYMBOL 200,80,82C,832,822,822,8 

22.822.80 

620 SYMBOL 201,8<0,8<84,&S4,S < A3,S<D0,8< 
90,893,80 

630 SYMBOL 202,8<0,&B8,&A4,&A4,S<B8,Ï < 
AO, 820 ,80 

640 SYMBOL 203, 80,8E0,890, 891 ,893, 8 
94,8E4,80 

650 SYMBOL 204,&0,&5C,5<52,««92,&lC,8c 
14,112,1:0 

660 SYMBOL 205,840 ,840,854,85A ,852 , 
S<52, S<52,&0 

670 SYMBOL 206,80,80,8C6,828, MO,82 
8,8C6,8Q 

680 SYMBOL 207, 8 1 , 83B , 844 ,878 ,841 , 8 
44, 838, tcO 

690 SYMBOL 208,88C ,850 ,820,&50,88C , 
&0, ScO, 5(0 

700 SYMBOL 209, 80,840,&4C ,852 ,852, 8 
52,8<4C, ScO 

710 SYMBOL 210,80,80,860,880,8B0,89 
0,860,5(0 ' 

720 SYMBOL 211,&0,80,8C6,828,810,82 
8, 8C6,1(0 

730 SYMBOL 212,8E0 , 8 10,860,880, 8F0, 
8(0 , 80 , 80 

740 SYMBOL 21 3 ,&0, M , 12,8c4,888, 850, 
?<2 0,5c20 

750 SYMBOL 214,1.0,8FE'80, 888,8(50 ,82 


2 

1 


■■'■j... ' 
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[3287] 

C 2974 3 

[11163 

[9733 

[3753 

[1173 

[8573 

C £ 173 

[14383 

[19243 

C21253 

[21733 

[20993 

[2300] 

[24373 

[18873 

[25243 

[19193 

[18513 

[ 21213 

[28283 

[23963 

[24443 

[ 18383 

[21493 

[22863 

[25463 

[22003 

[1879] 

[19303 

[21703 

[29283 
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0,8c50 , *88 

760 SYMBOL 215, *0,*20, *61,*22, *24 , * [2416] 
8,*10,*0 

770 SYMBOL 216,*0,*80,*22,*14,*8,*1 C2828] 
4,*22,*0 

780 SYMBOL 217,*0,*53,*22,*52,*2,*1 C2568] 
2,*A,*6 

790 SYMBOL 218,*0,&F8,*0,*50,*70,* 1 £1957] 
0,*60,*0 

800 SYMBOL 219,*0,*44,*29,*10,*28,* £1888] 
45,*1,*1 

810 SYMBOL 220,*0,*A4,*A4,*9C,*4,*4 £2448] 
,*B8,*0 

820 SYMBOL 221,*0,*3,*48,*48,&3B,*8 £1855] 
,*70,*0 

830 SYMBOL 222,*0,*60,*80,*80,*60,* £2237] 
0,*0,*0 

840 SYMBOL 223,*0,*7E,*24,*24,*24,* £2868] 
26,*0,*0 

850 SYMBOL 224,* 10,*10,*7C,*10,& 11, £1876] 
*2,*4,*0 

860 SYMBOL 225,*0,*20,*40,*80,*0,*3 £2328] 

E, *0,*0 

870 SYMBOL 226,*0,*77,*81 ,*61 ,*11 ,* £1576] 

11, *E1,&0 

880 SYMBOL 227,*0,*CC,* 12,*12,* 12 , * £2167] 

12, *C,*0 

890 SYMBOL 22B,*0,*71,*4A,*4A,*72,* £2182] 
52,*49,*0 

900 SYMBOL 229,*0,*D0,*10,* 10,*10,* £1878] 
10,*DE,*0 

910 SYMBOL 230,*0,*7,*1F,*7F,*7F,*1 £2785] 

F, *7,*0 

920 SYMBOL 231,*0,*0,*FE,*FE,&FE,*F £1488] 
E,*0,*0 

930 SYMBOL 232,*18,*7E,*7E,*FF,*FF, £2463] 
*7E,*7E,*18 

940 SYMBOL 233,*FF,*E3, *DD ,*DD,*DD, £2186] 
*DD,*E3,*FF 

950 SYMBOL 234,&FF,*3B,*5B,*6B,*73, £2309] 
*7B,*7B,*FF 

960 SYMBOL 235,*FF,*C6,*BA,*BA,*BA, £2616] 
*BA,*C6,*FF 

970 SYMBOL 236,*FF,*23,*EF,*67,*EF, £21893 
*EF,*EF,*FF 

980 SYMBOL 237,*0,*73,*4A,*4B,*4A,* £21433 
4A,*73,*0 

990 SYMBOL 238,*0,*90,*20,*20,*26,* £21453 
22,*9C,*0 

1000 SYMBOL 239,*0,*73,&4A,*4A,*73, £2108] 
*52,*4A,*0 

1010 SYMBOL 240,*0,*DC,*52,*52,*D2, £22273 
*52, *50 ,*0 

1020 SYMBOL 241,*0,*F,*8,*8,*38,*78 £20463 
, *30,*0 

1030 SYMBOL 242,*0,*F8,*8,*8,*38,*7 £24363 
8,*30,*0 


1040 SYMBOL 245,*0,*73,*4A,*4B,*4A, 
*4A,*73,*0 

1050 SYMBOL 246,*0 , *CE,*10,*90,* 10, 

*10,*CE,*0 

1060 FOR 1=0 TO 4 

1070 FOR J=0 TO 3 

1080 MOVE 201+J*67,20 + 1*30 

1090 FOR K=1 TO 21 STEP 2 

1100 IF J=3 THEN ENCRE 

*2 ELSE ENÇRE=0 

1110 ■ ' IF 1=4 AND J=0 TH 

EN ENCRE=2 

1120 DRAWR 40,0,ENCRE: 

MOVE 201+J*67,20+I*30+K 
1130 NEXT K 

1140 MOVE 192+1*54,170+J*30 

1150 FOR K =1 10 21 BTE? 2 

1160 IF 1=4 AND J=3 TH 

EN ENCRE=2 ELSE ENCRE=0 
1170 DRAWR 38,0,ENCRE :M 

OVE 192+1*54,170+J*30+K 
1180 NEXT K 

1190 NEXT J 

1200 NEXT I 
1210 ' 

1220 ' DEFINITION DU CLAVIER 
1230 ' 

1240 PRINT CHR*(23)CHR*(l)s PLOT 700 

,700,1 

1250 TAG 

1260 FOR 1=0 TO 2 

1270 FOR J=0 TO 2 

1280 MOVE 215+1*67,67+J*30 

1290 PRINT CHR* <49 + 1+3*J); 

1300 NEXT J 

1310 NEXT I 

1320 MOVE 215,37:PRINT CHR*(48)} 
1330 MOVE 282,37:PRINT CHR*<144>; 
1340 MOVE 340,37 : PR INT CHR* < 224 > CHR 
* (225 )5 

1350 PLOT 700,700,3 
1360 FOR 1=0 TO 4 

1370 READ A 

1380 MOVE 416,37 + 1*30:PRINT CHR 

$<A) j 

1390 NEXT I 

1400 MOVE 420,276:PRINT CHR*<67); 
1410 MOVE 207,157:PRINT CHR*(67)CHR 
*(69)i 

1420 PLOT 700,700,1 

1430 MOVE 275,157:PRINT CHR*(69)CHR 

*(69)j 

1440 MOVE 346,157:PRINT CHR*(223); 
1450 MOVE 196,277:PR INT CHR*(193)CH 
R*(194); 

1460 MOVE 250,277:PRINT CHR*(195)CH 
R* < 196); 


£1947] 

£25463 

£477] 

£705] 

£1286] 

£1524] 

£1371] 

£1655] 

£1932] 

£373] 

£1561] 

115241 

£2589] 

£650] 

£373] 

£370] 

£375] 

£117] 

£1283] 

£117] 

£2363] 

£318] 

£4713 

£702] 

£14763 

£1372] 

£3703 

£3753 

£14473 

£18723 

£2935] 

£593] 

£4773 

£4283 

£15903 

£3753 

£24303 

£26053 

£5873 

£22403 

£13593 

£19213 

£18093 
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"p- -- . ■ ■ ' 

1470 MOVE 304,277 : PR INT 
RK 198) ; 

1480 MOVE 358,277 : P RIN T 
RK200) ; 

CHRt C197)CH 

CHRI(199)CH 

C2518I 

C2221] 

********** 

20 '* 

* 

[175] 

1490 MOVE 196,247 î PR INT 
R*(202)i 

CHRt(201)CH 

[3121] 

30'* EMULATION 

DE LA CALCULATRIC 

[19733 

1500 MOVE 250,247 :PRINT 
R* 1204)i 

1510 MOVE 304,247:PRINT 
RI(206)j 

CHRI (203)CH 

CHRI(205)CH 

[2489] 

[2421] 

E * 

40 '* 

* 

[175] 

1520 MOVE 358,247:PRINT 
RK208) ; 

CHRt(207)CH 

[3441] 

50'* Norbert SILV 

ES T RE - NOVEMBRE 19 

l 31 ni 

1530 MOVE 412,247:PRINT 
RK 210 ) ; 

CHRI(209)CH 

[1841] 

8 6 * 

60 ' * 

[1753 

1540 MOVE 196,217:PRINT 
RI <212)} 

CHRI(211)CH 

[2485] 

* 

[27983 

1550 MOVE 250,219:PR INT 
RI 1214)) 

CHRI(213)CH 

[2766] 

70 '******************************* 
*********************************** 

1560 MOVE 304,217 : PR INT 

CHRI(215)CH 

[1391] 

********** 


RK216) i 



80 ‘ 

[1173 

1570 MOVE 412,217 : PR I NT 

CHRt(217)CH 

[2125] 

90 ' CHARGEMENT DE L'IMAGE 

[1839] 

RK218) ; 


100 ' 

[1173 

1580 MOVE 358, 189s PRINT 

CHRI(219)CH 

[1422] 

110 MODE 1 : BORDER 13:DEG 

[ 1684] 

RI(220); 



120 INK 0,13:INK 1,13:INK 2,13:IMK 

[15863 

1590 MOVE 412,187:PRINT 

CHRt(221)CH 

[2020] 

3,13 

[21103 

RI<222)} 

1600 MOVE 358,217:PRINT 
RI< 33); 

*■ " •' 


130 LOAD" ECRAN. BIN",î<CO 00 

CHRI(211)CH 

[14701 

140 I.NK 0,13: INK 1,0:INK 2, 15 : INK 3 
,6:BELL=1 

[16723 

1610 MOVE 310,187:PRINT 

CHRt (190); 

[1635] 

150 MOVE 600,40 

[6473 

1620 MOVE 196, 187 : PR I NT 
RI (227); 

1630 MOVE 250,187 : PR I NT 

CHRI< 226)CH 

[838] 

160 ' 

C117) 

■ •' î*»'; £'• l' 


170 ' DEFINITION DES SYMBOLES 

[4183 

CHRt(228)CH 

[2832] 

180 ' 

[1173 

RI (229): 



190 SYMBOL AFTER 231 

[14333 

1640 MOVE 400,310:PRINT 
RI (236); 

CHRI(235)CH 

[1946] 

200 SYMBOL 232 , & 18,&7E, &7E, îcFF, &FF, 

C24633 



&7E,&7E,& 18 

[21863 

1650 MOVE 220,310:PRINT 
RK238) j 

CHRI(237)CH 

[3335] 

210 SYMBOL 233,&FF,?<E3,&DD,8<DD,8<DD, 
&DD,&E3,S(FF 

1660 MOVE 341,310:PRINT 
RK242) ; 

167,0 MOVE 282,310: PRINT 
RK246) | 

CHRI (241)CH 

[2937] 

220 SYMBOL 234 , S.FF , &3B , &5B , S<6B, 8<73 , 
&7B, &7B,&FF 

[23093 

CHRI(245)CH 

[1872] 

230 SYMBOL 235,&FF,&C6,?<BA,8<BA,&BA, 
&8A, &C6, S<F F 

[26163 

1680 TAGOFF 

1690 ' 


[1066] 

[ 117] 

240 SYMBOL 236,8<FF,&23,8<EF ,?<67 ,&EF , 
&EF,&EF,&FF 

[2189] 

1700 ' SAUVEGARDE DE L 
1710 ' 

* IMAGE 

[987] 

[117] 

250 SYMBOL 237 , &0 , S<73, ?<4A,&4B ,&4A , S< 
4A, S<73, &0 

[21433 

1720 SAVE !I ECRAN, BIN ", B , 
1730 '' 

&C00Û, S.4000 

[2072] 

[117] 

260 SYMBOL 238 , ï<0,Î<9C,&20, &20,&26 , & 
22,8<9C, «<0 

[21453 

1740 END 

1750 ' 


[110] 

[117] 

270 SYMBOL 239 , &0, $<73,&4A,&4A,&73, & 
52,5<4A , 8<0 

[21083 

1760 DATA 8,8,631,8,631 

,391,8,391 

[1001] 

280 SYMBOL 240 , &0, &DC, S<52, î<52, !<D2, & 

[22273 

1770 DATA 61,43,45,120, 

! 

' • * r£*, . ; 

172 

[625] 

52 , S<5C , &0 

290 SYMBOL 241 , &0 , &F , &8 , ?<8 , ?<38 , &78 , 
!<30 , î<0 

300 SYMBOL 242 , &0 , &F8 , «<8 , S<8 , S<38 , S<78 
,J<30,«<0 

[20463 

[24363 

• Av j 

10 '******************************* 
*********************************** 

[27981 

310 SYMBOL 243,&FF,?(F0,&F7,?<F7,!!<C7, 
&87,Î<CF,8<FF 

[28943 
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LISTING 


320 SYMBOL 244,&FF,Sc7,&F7,î<F7,S<C7,& 

C1841] 

AND Y<=320 AND R$=" " THEN 1530 


87, ScCF, ScFF 


’ DEG/RAD 


330 SYMBOL 245,&0,&73,&4A,&4B,L4A,& 

Cl 947 3 

750 IF X>=270 AND X< = 310 AND Y>=300 

[40023 

4A,&73,S<0 


AND Y< = 320 AND R* = “ ■ THEN 1710 


340 SYMBOL 246 ,&0 ,&CE, UO,&90 , U 0, & 

C 2546 3 

' DEC/HEX 


10, &CE, Sc0 


760 IF <ASC(R$)>=48 AND ASC(R*)<=57 

£17233 

350 SYMBOL 247 ,&0, &4B ,&4A, L7B ,&4A , & 

C2181 3 

) AND TEXPO=1 THEN 2280 


4A, k4B, !<0 


770 IF <(ASC(R$)>=42 AND ASC(R*)<=4 

£71233 

360 SYMBOL 248 ,&0,&D2, fc 12, &84 , &B, 11 

C22013 

7) OR ASC(R$)=94 OR ASC(R*)=64 OR A 


2, S<D2 , &0 


SC <R$)=61 OR ASC(R$)=13 OR ASC(R*)= 


370 ' 

C1173 

124) AND TEXPO = 1 THEN 2320 


380 ' DEFINITION DE L'ECRAN 

[6113 

780 IF (ASC(R$)>=4S AND ASC(R$><=57 

£62923 

390 ' 

[1173 

) AND NEWOPER=1 THEN PREMVAR=0!NEWO 


400 WIND0WI1,14,24,4,4 

[13403 

PER=0sMANTIS=0:DECIME=0sSIGNE=0sG0T 


410 WIND0W#2,26,28,4,4 

[13513 

0 1370 


420 WIND0W#3,13,13,4,4 

C9783 

790 IF ASC(Rt)>=48 AND ASC(R*)<=57 

£32103 

430 PAPER#1,11PEN# 1,3 

C17423 

AND NEW0PER=0 THEN 1370 


440 PAPER#2,1»PEN#2,3 

[20853 

BOO IF ASC ( RI)=42 OR ASC(R*)=43 OR 

£115293 

450 PAPER#3,1 !PEN#3,3 

[15183 

ASC (RI ) =45 OR ASC(R$)=47 OR ASC(R*) 


460 ' 

[1173 

= 94 OR ASC < R$)=64 THEN TEXP0=0:NEW0 


470 ' DEPLACEMENT DU CURSEUR 

C23633 

PER=1{SIGNE=01CHS IG=0:PREMVAR=SECVA 


480 ' 

[1173 

R s SECVAR=MANTIS:0PER$=0PER2fs0PER2$ 


490 X=600:Y=40 

[6993 

=R$:GOTO 1440 


500 PRINT CHR*<23)CHR*(1)jiPLOT 700 

£27073 

810 IF ASC(R$)=124 THEN VAR1=SECVAR 

£61103 

,700,3 


iVAR2=MANTISiMANTIS=VAR1ï SECVAR = VAR 


510 TAG 

[3183 

2!NEW0PER=lsTEXP0=0sSIGNE=0!CHSIG=0 


520 IF INKEY(8)=0 THEN X=X-5 

[1274] 

! GOTO 2360 


530 IF INKEY <1)=0 THEN X = X+5 

[15333 

820 IF ASC(R$)=61 OR ASC(R$)=13 THE 

[79993 

540 IF INKEY(0)=0 THEN Y=Y+5 

£17053 

N PREMVAR=SECVAR!S£CVAR=MANTISîOPER 


550 IF INKEY(2)=0 THEN Y=Y-5 

£10603 

<*0PER2$s0PER2$="":N£WOPER=1 s NEWVAL 


560 IF X<10 THEN X=10 

£13043 

= 1 :ARC=0:HYPER=0:TEXP0=0iSIGNE=0:CH 


570 IF X>600 THEN X = 600 

£14813 

SIG=0 ELSE 920 


580 IF Y<20 THEN Y=20 

£10163 

830 IF 0PER$="+" THEN MANTIS=PREMVA 

£21223 

590 IF Y>320 THEN Y=320 

[14293 

R+SECVARiGOTO 1390 


600 MOVE X,Yj PRINT CHRF(232); 

[20743 

840 IF OPER$= M - M THEN MANTIS=PREMVA 

£29603 

610 MOVE X,Y: PRINT CHR*<232); 

[20743 

R-SECVAR: GOTO 1390 


620 R*=INKEY$sIF R*="" THEN 520 ELS 

[93663 

850 IF OPER$="*" THEN MANTIS = PREMVA 

£34693 

E IF R$ = " " OR ASC(RI) = 13 OR (ASC (R 


R*SECVAR ! GOTO 1390 


*> >=42 AND ASC(R$)<=61) OR ASC(R$)= 


860 IF OPER$=" AO THEN MANTIS=PREMVA 

[33443 

94 OR ASC(R$)=64 OR ASC(R*)=124 THE 


R A SECVAR s GOTO 1390 


N GOSUB 700 


870 IF OPER$="@" THEN IF PREMVAR<=0 

£47193 

630 GOTO 510 

£4073 

THEN 900 ELSE MANTIS=EXP<LOG<PREMV 


640 TAGOFF 

C10663 

AR)/SECVAR): GOTO 1390 


650 ' 

£1173 

880 IF OP£R$="/" AND SECVAR<>0 THEN 

£49033 

660 ' EMULATION DE LA CALCULATRICE 

£16123 

MANTIS=PREMVAR/SECVARîGOTO 1390 


670 ' 

£1173 

890 IF OPER$="" THEN 1390 

[10013 

680 ' TEST DES TOUCHES. 

£8043 

900 CHSIG=0:SIGNE=0îMANTIS=0tPREMVA 

£76643 

690 ' 

£1173 

R=OiDECIME=OsARC=OiHYPER=OiTEXPO=Os 


700 PLOT 700,700 

£5483 

SIGN$=" ":PRINT#3,SIGN$;sEXPD*= M 


710 IF X>=390 AND X< = 425 AND Y>=300 

[36153 

"iPRINT#2,EXP0$} 


AND Y<=320 AND R*=" " THEN 1470 


910 P RIN T# 1, 11 E r r e u rs RETURN 

£12383 

' MST 


920 IF (ASC(R$)=44 OR ASC(R*)=46) A 

£55083 

720 IF QN0FF=O THEN RETURN 

[7763 

ND (DECIME>1 OR EXPO$<>" " OR MAN 


730 IF X >=330 AND X< = 365 AND Y>=300 

£26913 

TIS-FIX(NANTIS)<>0 OR NEWOPER=l) TH 


AND Y<=320 AND R* = " " THEN 1620 


EN RETURN 


' BELL 


930 IF ASC <R$)=44 OR ASC(R*> =46 THE 

[28793 

740 IF X >=210 AND X< = 250 AND Y>=300 

£32923 

N DECIME = 1s GOTO 2360 
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940 

IF 

X>= 

= 190 

AND 

X< = 

= 235 

AND 

Y >= 

= 25 

[45053 

AND 

Y< = 

45 

AND 

R*=” 

H 

THEN 

Rf = 

"Q« 

■ i GO 


TO 

710 










950 

IF 

X >= 

-190 

AND 

X< = 

=235 

AND 

Y>= 

= 60 

[39513 

AND 

Y< = 

75 

AND 

Rt=" 

II 

THEN 

R* = 

Il | li 

' s GO 


TO 

710 










960 

IF 

X >= 

= 190 

AND 

x<= 

=235 

AND 

Y>= 

= 90 

[38233 

AND 

Y< = 

105 

5 ANE 

i Rl = 

Il 1 

' THEN R* 

= "/ 

)" :G 


OTO 

710 










970 

IF 

X>= 

= 190 

AND 

x<= 

= 235 

AND 

Y>= 

= 120 

[40663 

AND Y< 

= 13 

55 AND R* 

. Il 

" THEN R*=' 

'7": 


GOTO 710 









980 

IF 

X>= 

= 190 

AND 

x<= 

= 235 

AND 

Y >= 

= 150 

[71833 


AND Y<=165 AND R*»' " THEN MANTIS= 
0:DECIME=0:NEW0PER=0iPREMVAR=0îEXP0 
=0 ! GOTO 2360 

990 IF X>=257 AND X< = 302 AND Y> = 25 [36653 

AND Y< = 45 AND R$=" " THEN R*="."s GO 
TO 710 

1000 IF X>=257 AND X< = 302 AND Y>=60 [37943 
AND Y< = 75 AND R$=" " THEN R*="2 “16 
OTO 710 

1010 IF X>=257 AND X< = 302 AND Y>=90 [46713 
AND Y< = 105 AND R* = " " THEN R*="5"j 
GOTO 710 

1020 IF X>=257 AND X< = 302 AND Y>=12 C4750I 
0 AND Y< = 135 AND R*=" ■ THEN R*=" 8 “ 

: GOTO 710 

1030 IF X >=324 AND X< = 370 AND Y> = 25 CB3573 
AND Y< =45 AND Rf=“ ■ THEN IF TEXPO 
=0 THEN MANTIS=MANTIS*(-1):G0TQ 236 
0 ELSE CHSIG=CHSIG XOR 1 ! GOTO 2280 
1040 IF X >=324 AND X< = 370 AND Y> = 60 [38473 
AND Y<=75 AND R*=" " THEN R$="3":G 
OTO 710 

1050 IF X>=324 AND X< = 370 AND Y>=90 E50913 
AND Y<=105 AND Rt=" " THEN Rt=" 6 "i 
GOTO 710 

1060 IF X>=324 AND X< = 370 AND Y>=12 C35083 
0 AND Y<=135 AND R* = " • THEN R*="9 H 
: GOTO 710 

1070 IF TEXPO=1 THEN RETOUR = 1 :POSX= [39673 

XiPOSY=Y» GOSUB 2320 ELSE 1090 

1080 X=POSXîY=POSY!GOTO 1160 [16983 

1090 IF X >=324 AND X< = 370 AND Y> = 15 [50323 

0 AND Y< = 165 AND Rf = " 11 THEN MANTIS 

= 3.14159265s NEWOPER=1 ! GOTO 2360 

1100 IF X>=257 AND X< = 302 AND Y> = 15 [43333 

0 AND Y<=165 AND R$=" " THEN TEXPO= 

1 s GOTO 2260 

1110 IF X>=391 AND X< = 436 AND Y> = 20 [41363 
AND Y< =45 AND R*=" " THEN R'l=" = " iG 
OTO 710 

1120 IF X>=391 AND X< = 436 AND Y> = 60 [24063 
AND Y<=75 AND R$=” " THEN R*="+”iG 
OTO 710 

1130 IF X >=391 AND X< = 436 AND Y>=90 [38243 


AND Y< = 105 AND R*=" " THEN R*="-": 
GOTO 710 

1140 IF X> = 391 AND X< = 436 AND Y>= 12 
0 AND Y< = 135 AND R*=" " THEN R*="*“ 

: GOTO 710 

1150 IF X>=391 AND X<=436 AND Y>= 15 
0 AND Y< = 165 AND R*=" " THEN R$="/" 
! GOTO 710 

1160 IF X>= 185 AND X< = 225 AND Y>=18 
0 AND Y< = 195 AND R*=“ " THEN NEWOPE 
R=1:MEM0IRE=MANTIS:G0T0 2360 
1170 IF X >=240 AND X<=280 AND Y>=18 
0 AND Y< = 195 AND R* = ” " THEN NEWOPE 
R=liMANTIS=MEMOIREiGOTO 2360 
1180 IF X>=294 AND X< = 334 AND Y>=18 
0 AND Y< = 195 AND Rl = ” ■ THEN NEWOPE 
R=1:MEMOIRE=MEMOIRE+MANTIS:GOT0 236 
0 

1190 IF X>=348 AND X< = 388 AND Y>=18 
0 AND Y< = 195 AND R* = " " THEN R^ " {" 

: GOTO 710 

1200 IF X>=402 AND X<=442 AND Y>= 18 
0 AND Y< = 195 AND Rf = " " THEN R$= ,,A " 
.■GOTO 710 

1210 IF X>=185 AND X< = 225 AND Y> = 21 
0 AND Y< = 225 AND R* = " 11 THEN IF MAN 
TIS< = 1.3E + 19 THEN MANTIS = MANTIS A 2: N 
EW0PER=1! GOTO 2360 ELSE GOTO 900 
1220 IF X>=240 AND X< = 280 AND Y>=21 
0 AND Y< = 225 AND Rl = " " THEN IF MAN 
TIS>=0 THEN MANTIS = SQR(MANTIS):NEWO 
PER=1 jG 0T0 2360 ELSE GOTO 900 
1230 IF X>=294 AND X< = 334 AND Y> = 21 
0 AND Y< = 225 AND Rl=" " THEN IF MAN 
TISOO THEN MANTIS=1/MANTIS:NEW0PER 
= 1 : GOTO 2360 ELSE GOTO 900 
1240 IF X>=348 AND X< = 388 AND Y> = 21 
0 AND Y< = 225 AND R*=" " THEN IF <MA 
NTIS>=0 AND (MANTIS-INT(MANTIS))=0) 
THEN NEWOPER=1 : GOTO 1790 ELSE GOTO 
900 

1250 IF X> = 402 AND X< = 442 AND Y>=21 
0 AND Y< = 225 AND R$ = " * THEN R^="€" 
: GOTO 710 

1260 IF X>=294 AND X< = 334 AND Y>=24 
0 AND Y< =255 AND R$=" ■ THEN IF MAN 
TI S >0 THEN MANTIS=LOG(MANTIS):NEWOP 
ER=1! GOTO 2360 ELSE GOTO 900 
1270 IF X > = 240 AND X< = 280 AND Y>=24 
0 AND Y<=255 AND Rf=" " THEN 2180 
1280 IF X >=348 AND X< = 388 AND Y>=24 
0 AND Y< =255 AND R*=" " THEN IF MAN 
TIS< = 88 THEN MANTIS=EXP(MANTIS): NEW 
OPER=1 : GOTO 2360 ELSE GOTO 900 
1290 IF X >=402 AND X< = 442 AND Y> = 24 
0 AND Y< = 255 AND R* = " " THEN IF MAN 
TIS>0 THEN MANTIS = L0G10(MANTIS>:NEW 


[28723 

[45893 

[55223 

[70963 

[68373 

[34523 

[43673 

[68503 

[89263 

[66843 

[63043 

[31663 

[75183 

[38643 

[76363 

[62093 
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LISTING 


OPER=1iGOTO 2360 ELSE GOTO 900 


1590 IF DEGRAD=0 THEN DEGsPRINT CHR 

[40323 

1300 IF X>=402 AND X<=442 AND Y>=27 

18651] 

f(237)CHRf(238 )5 ELSE RADsPRINT CHR 


0 AND Y<=285 AND Rf=" » THEN MANTIS 


f(239)CHRf(240); 



=0:PREMVAR=0:SECVAR=0:DECIME=0:NEWO 


1600 TAGOFF:PLOT 700,700,3: PRINT 

CH 

[36573 

PER=0:NEWVAL=1iTEXP0=0iGOTO 2360 


RI(23)CHRf(1 )5 ! TAG 5 MOVE X,Y 



1310 IF X> = 185 AND X< = 225 AND Y> = 27 

E 3957 3 

1610 GOTO 2360 


[3073 

0 AND Y<=2S5 AND Rf=" 11 THEN ARC=1: 


1620 ' 


[1173 

GOTO 2360 


1630 ' BIP SONORE 


[13253 

1320 IF X>=185 AND X<=225 AND Y>=24 

C29003 

1640 ' 


[1173 

0 AND Y<=255 AND Rf=" " THEN HYPER= 


1650 TAGOFF:PLOT 700,700,1 :PRINT 

CH 

[39553 

1 s GOTO 2360 


R$(23)CHRf(0)i: T AG :MOVE 340,310 



1330 IF X>=240 AND X< = 280 AND Y>=27 

[31003 

1660 BELL=BELL XOR 1 


[18113 

0 AND Y<=285 AND R*»' " THEN 1890 


1670 IF BELL=0 THEN PRINT CHRf(243) 

[49623 

1340 IF X>=294 AND X< = 334 AND Y>=27 

[27113 

CHRf(244 )5 ELSE PRINT CHRf(241)CHRf 


0 AND Y<=285 AND Rf=" " THEN 1980 


(242); 



1350 IF X>=348 AND X< = 388 AND Y>=27 

[39343 

1680 TAGOFF:PLOT 700,700,3:PR INT 

CH 

[36573 

0 AND Y<=285 AND Rf-" ■ THEN 2070 


Rf(23)CHRf(1); :TAG:MOVE X,Y 



1360 RETURN 

[5553 

1690 GOTO 2360 


[3073 

1370 IF DECIME=0 THEN 1380 ELSE MAN 

[47413 

1700 ' 


[1173 

TIS=MANTIS+VAL(Rf)/10 A DECIME;DECIME 


1710 ' HEXADECIMAL-DECIMAL 


[7013 

=DECIME + 1» GOTO 2360 


1720 ' 


[1173 

1380 MANTIS=MANTIS#10+VAL(Rf):IF AB 

[48853 

1730 TAGOFF;PLOT 700,700,1 : PRINT 

CH 

[38013 

S(LOG10<MANTIS))>37 THEN 900 ELSE 2 


Rf(23)CHRf(0)}:TAG:MOVE 282,310 



360 

»• ’ 

1740 HEX=HEX XOR 1 


[14233 

1390 SECVAR=MANTIS:ARC=0:HYPER=0:DE 

[26793. 

1750 IF HEX=1 THEN PRINT CHRf(247)C 

[37273 

CIME=0 


HRf(248)j ELSE PRINT CHRf(245)CHRf( 


1400 IF HEX=0 THEN 2360 

[11123 

246)j:PRINT#3," 



1410 IF MANTIS<-32768 OR MANTIS>655 

[17823 

1760 TAGOFF:PLOT 700,700,3:PR INT 

CH 

[36573 

35 THEN 900 


Rf(23)CHRf(1); :TAG:MOVE X,Y 



1420 AFFICHf=STRINGf(5,32)+HEXf(MAN 

[38243 

1770 GOTO 2360 


[3073 

TIS,4) : EXPOf=" ” : SIGN*-'^" 


1780 ' 


[1173 

1430 GOTO 2550 

[3653 

1790 ' FACTORIELLE 


[11633 

1440 IF NEWVAL=1 THEN NEWVAL=0:GOTO 

[13203 

1800 ' 


[1173 

2360 ELSE GOTO 830 


1810 IF MANTIS>33 THEN 900 


[10183- 

1450 RETURN 

[5553 

1820 IF MANTIS=0 THEN MANTIS= î 


[12693 

1460 ' 

[1173 

1830 FOR I-MANTIS-1 TO 1 STEP-1 


[16933 

1470 ' MISE SOUS TENSION 

[9033 

1840 MANTIS=MANTIS*I 


[10353 

1480 ' 

[1173 

1850 NEXT I 


[3753 

1490 TAGOFFî PLOT 700,700,1 !PRINT CH 

[41583 

1860 NEWOPER=1 


[9443 

Rf(23)CHRf(0);:TAG:M0VE 400,310 


1870 GOTO 2360 


[3073 

1500 ONOFF=QNOFF XOR 1 sMANTIS=0: PR 

[51733 

1880 ' 


C1173 

EMVAR=0:SECVAR=0:DECIME=0:ARC=0:HYP 


1890 ' SIN-ARCSIN-SH-ARG SH 


[8353 

ER=0:MEMOIRE=0:TEXPO=0 


1900 ' 


[1173 

1510 IF ONOFF= 1 THEN PRINT CHRf<233 

[80363 

1910 NT0T=ARC+2«HYPER+1 


[7943 

)CHRf(234)j î NEWQPER=0:NEWVAL=1:DEG: 


1920 ON NTOT GOTO 1930,1940,1950, 

19 

[13883 

GOTO 1520 ELSE PRINT CHRf(235)CHRf( 


60 



236);:CLS#1îCLS#2:CLS#3 


1930 MANTIS=SIN(MANTIS):NEW0PER=1 

: G 

[25933 

1520 TAGOFFrPLOT 700,700,3:PR INT CH 

[63923 

OTO 2360 



Rf(23)CHRf <1); :TAG:MOVE X , YsIF ONOF 


1940 IF ABS(MANTIS)>1 THEN 900 ELSE 

[53933 

F= 1 THEN 2360 ELSE RETURN 


CHVAR=MANTIS/S0R(1-MANTIS A 2):MANTI 


1530 ' 

[1173 

S=PI/180*MANTIS:MANTIS=ATN(CHVAR) 

: N 


1540 ‘ DEG <=> RAD 

[9633 

EW0PER=1:ARC=0:G0T0 2360 



1550 ' 

[1173 

1950 MANTIS=(EXP(MANTIS)-EXP(-MANTI 

[35993 

1560 IF 0N0FF=0 THEN RETURN 

[7763 

S))/2:HYPER=0:NEW0PER = 1: GOTO 2360 



1570 TAGOFFîPLOT 700,700,1 1 PR INT CH 

[40953 

1960 MANTIS=LOG(MANTIS+SQR(1+MANTIS 

[22913 

Rf(23)CHRf(0)11TAG:MOVE 220,310 


A 2)):NEW0PER=1:ARC=0:HYPER=0:G0T0 

2 


1580 DEGRAD=DEGRAD XOR 1 

[11123 

360 
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1970 ' 

C11 7 3 

2310 PRINT#2,TEXP0î:G0T0 2360 

[11763 

1980 ' C0S-ARCCOS-CH-ARG CH 

C 908 ] 

2320 IF VAL(TEXPOI)>37 THEN 900 

[25173 

1990 ’ 

CV171 

2330 QPERI=QPER2î ; QPER2Î=R! ".PRECWftR 

(.90971 

2000 NTQT=ARC+2*HYPER+1 

C 794 3 

=SECVAR!S£CVAR=MANTIS*10 A VAL(TEXPOI 


2010 ON NTOT GOTO 2020,2030,2040,20 

[10763 

)!MANTIS=SECVAR:TEXPO=OiNEWOPER=l:N 


50 


EWVAL=l:ARC=0:HYPER=0îCHSIG=0:SIGNE 


2020 MANTIS=COS(MANTIS):NEWOPER=lîG 

£27643 

=0 


OTO 2360 


2340 IF RETOURS THEN RET0UR=0:RETU 

[26413 

2030 IF ABS(NANTIS)>1 THEN 900 ELSE 

[39213 

RN ELSE 830 


CHVAR=SQR (1-MANTIS A 2)/MANTIS : MANTI 
S=ATN(CHVAR)îNEW0PER=1sARC=O:G0TQ 2 


2350 ' 

2360 ' AFFICHAGE 

[1173 

[8543 

360 


2370 ' 

[1173 

2040 MANTIS=(EXP(MANTIS)+EXP(-MANTI 

[46653 

2380 IF MANTIS>=»1.:7E*38 THEN 900 

[12823 

S)}/2iHYPER«0iNEW0PER=li60T0 2360 


2390 IF MANTIS<0 THEN SIGNE=1 : SIGN! 

[47563 

2050 IF MANTIS<1 THEN 900 ELSE MANT 

[41373 

= ELSE SIGNE = 0: SIGNI= " ■ 


IS=LQG(MANTIS+SQR( 1+MANTIS A 2)):NEWO 


2400 IF DECIME>0 THEN DECAL = 1 ELSE 

[14003 

PER=lsARC=0iHYPER=0:G0T0 2360 


DECAL=0 


2060 ' 

[1173 

2410 IF DEC IME >1 AND MANTIS-FIX(MAN 

[35433 

2070 ' TG-ARCTG-TH-ARG TH 

[13233 

TIS> =0 THEN 2ER0t = “."«STRING!(DECIM 


2080 ' 

[1173 

E-1, "0 " ) ELSE ZER0$ = "" 


2090 NT0T=ARC+2«HYPER+1 

[7943 

2420 ZER0=LEN < ZERO!) 

[11613 

2100 ON NTOT GOTO 2110,2120,2130,21 

[12433 

2430 MANTIS=ABS(MANTIS) 

[6973 

.40 


2440 IF MANTIS = 0 THEN MANTIS!="0": S 

[33993 

2110 MANTIS=TAN(MANTIS):NEWDPER=1:G 

[29833 

IGN!=" ":LONG= 1 » EXPOI=" ":GOTO 24 


OTO 2360 


80 


2120 MANTIS=ATN(NANTIS):NEW0PER=1:A 

[28583 

2450 IF INT(LOGIC(NANTIS))<=8 AND I 

[87623 

RC=0: GOTO 2360 


NT(LOGIC(MANTIS)) >=0 THEN MANTIS!=S 


2130 MANTIS=(EXP(2*MANTIS)-1)/(EXP( 

[37313 

■TRI(NANTIS):EXPOI=" " s LONG = LEN(ST 


2«NANTIS)+1)!NEW0PER=1:HYPER=OsGOTO 


RKMANTIS) ) iGOTO 2480 ELSE MANT! = ST 


2360 


RI(NANTIS) 


2140 IF ABS < MANTI S)>1 THEN 900 ELSE 

[48273 

2460 PUISI=RIGHTÎ(MANTI,4):IF LEFTI 

[68693 

MANTIS=0,5*(L0G((MANTIS+1)/(1-MANT 


(PUISI,1)="E" THEN MANTI=STRI(MANTI 


IS>))sNEW0PER=1:ARC=0îHYPER=0:G0T0 


S) ELSE MANTISÎ=MANTIt£XPOI=" ":G 


2360 


OTO 2480 


2150 ‘ 

[1173 

2470 EXPOI = RIGHTI(MANTI,3): NANTIS! = 

[56153 

2160 ' TRANSPOSITION DEG / RAD 

[14853 

LEFTI(MANTI,LEN(MANTI)-4):LONG=LEN < 


2170 ' 

[1173 

MANTISt) 


2180 NEWOPER=1 

[9443 

2480 IF L0NG<=11-DECAL-ZER0 THEN BL 

[40233 

2190 IF DEGRAD=0 THEN MANTIS=1S0*MA 

[46573 

ANC=11-LONG-DECAL-ZERO ELSE BLANC=0 


NTIS/PI ELSE MANTIS=PI«MANTIS/180 


2490 IF LEN(MANTI SI)>11 THEN MANTI S 

[39103 

2200 GOTO 2360 

[3073 

l=LEFTI< MANTI SI,11) 


2210 ' 

[1173 

2500 IF DECIME=1 THEN VIRGULI="." E 

[11363 

2220 ' 

[1173 

LSE VIRGUL!="" 


2230 ' 

[1173 

2510 AFFICHÎ = STRINGI(11,32): P RIN T #1 

[25593 

2240 ' TOUCHE EE 

[8223 

,AFFICH! 


2250 ' 

[1173 

2520 AFFICH!=SPACE!(BLANC+DECAL)+MA 

[39483 

2260 IF VAL(EXPOI)=0 THEN TEXPOI="+ 

[88173 

NTISI+VIRGULI+ZERO! 


00" ELSE TEXPQ!=EXPO!:MANTIS=VAL(SI 


2530 AFFICH$=RIGHTI(AFFICH$,11) 

[13383 

GNI+AFFICHI)s IF LEFTI(EXPOI,1) = "- " 


2540 IF SIGNE=1 THEN MANTIS = MANTIS* 

[11483 

THEN CHSIG=1 ELSE CHSIG = 0 


(-1) 


2270 GOTO 2310 

[3493 

2550 TAGOFF 

[10663 

2280 IF RIO" " THEN TEXPO!=RIGHT!( 

[23503 

2560 IF BELL= 1 THEN PRINT CHR!(7); 

[12843 

TEXPOI+RI,2) 


2570 IF TEXP0=0 THEN PR I NT#2 , EXPO!; 

[3116] 

2290 IF CHSIG=0 THEN SIGEXP!="+" EL 

[13773 

ELSE PRINT#2,TEXPOIj 


SE SIGEXP!= "-" 


2580 PR IN T #1,A F FIC H1; 

[10813 

2300 TEXP0t=SIGEXP$+RIGHTI(TEXP0t,2 

[15823 

2590 PR I NT#3 , SIGN!; 

C350 3 

) 


2600 RETURN 

[5553 
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TOUT AMSTRAD EN 4 PARES 


ORDINATEURS 
AMSTRAD 

ORDINATEURS CPC AMSTRAD 

CRC 4<b4 COULEUR. ‘Wij 

-CP r. 4<>4 MOliO CH ROME.. | ÇRQ 

.CPC. 6128 COULEUR. Wr» 

-CPC 6] J8 MONOCHFOMF.. 

PER I F>HEIR X QUEIS 
CRC — — <±» 1 ^ 

CABLES DIVERS CPC 

-CABLE DMP 2000 -1,5 M .. 150 

-CABLE FD1 -LECTEUR DISK... 150 

-CABLE LECTEUR K7 . 70 

-KIT RALLONGE CPC 464. 135 

-KIT RALLONGE CPC 6 1 2P . 1B5 


IMPRIMANTES 

-IMPRIMANTE DMP 2000. 


1690 

LECTEURS DISK & K7 - 

CPC 


-DD1-LECTEUR DISK (A) 

CPC. 

1990 

-FD1-LFCTFUR DISK <E) 

CPC. 

1590 

-LECTEUR K7 + CABLE.. 


• 390 

AUTRES PERIPHERIQUES 

CPC 


-AMSTEL 2 - INTERFACE 

MINITEL. 

. 890 

1 - TRAYON OPTTOUF AMRTRAD. . . 

290 

-CRAYON OPTIO.DK 7 TRON 

IC. . . 

310 

-CRAYON ELEC.STUDIO 464/664... 

395 

-MP2-PERITEL/CPC464—6126.. 

490 

INTERFACE RS 232 CPC 


. 590 

-SSA1-SYNTHE.AMSTRAD. 


390 

-SOURIS AMX + 4 DAO.. 


690 

-SYNTHE TECHNIMUSIQ..D 

ISK-. 

499 

j-SYNTHF.TE CHNIMUSIO.K7. ... 

480 


ORO J NATEURS 
£> X ivl C L_ AIR 


-ZX SPECTRUM +2 


■JT O V S T I CKS 


JOYSTICKS DE LA MARQUE 


-DOUBLEUR JOYSTICK AMSTRAD 
- CONTROL -MANET -T07/70/MO5. 
-JOYSTICK THOMSON. 


1 10 
160 
120 


AUTRES JOYSTICKS 


JOYSTICK 
-DOUBLEUR 
-JOYSTT CK 
-JO Y S r 1 CK 
-JOYST I CK 
-JOV S fl CK 


COMPETIriUN 
JOVSTî •> .. .. 
AMS.TRAO. 

OUI CK ■CHOC î 
OUICK CHOC 2 
TURBO 2. 


EN STOCK 

jsft» 


AMSTRAD 


MF MOINS CHER / 


ENCORE AMSTRAD dmp 2000 




CPC 464 

MONO COULEUR 

1.990 F 2.990 

aaoar 3-39cr 



3Q F 

[ CARTE blanche 

linui cet ach.il 

9 <r 

1 120 F 

pat mois 


MONO 


3.39CT 



PROMOTION 

DISQUETTE 

F 


par 10 



CPC 6128 

COULEUR 

3.990 F 

4-49tÏ F 

EN STOCK 

DISPONIBLE IMMÉDIATEMENT 

3997 h f , 

OU TTC 4740 F 


par 50 


AMSTRAD 


TRAITEMENT DE TEXTE 

PCW 


8512 


5926 F 


CARTE BLANCHE 360 F 

poui cet achat par mois 



CARTE BLANCHE 

pouf cet achat 

300 F 

par mois 


PCW 

8256 



Lecteur disquette 
AMSTRAD 

DD1 



1.990 F 

avec interface Livré Cor-plel 
avec CP/M 


2 2 et 
Dr logo 
interface et 
câoies 

3 Douces 


A CREDIT ... ( 
190 F • 

comptant ?.. «r. 
+ 223.40 F 
en 9 mensualité» 


LECTEUR DISQUETTE 



sans interface J 'ecteur 
rtfl disquette Se branche 
Sur le câble du OOt . L 



BOITIER RANGEMENT 

40 disquettes 3' 150 F 


Jostick 

AMSTRAD 
155 F 


manptte 

Jostick 
seul 140 


( h* 

IAD Ipl 
= 

poui 

olF 


JOYSTICK IMF 

Compétition PRO r 



ADAPTATEUR COULÉUM PÉRI . feu 
MP- pour CPC «M 390 F 
- MPZ pou» CPC 66a.6128 4 90 F 



SVNTME VOCAL STEREO 410 F 
SYNThE VOCAL FRANÇAIS 
En cassette 390 F 

En disquette 490 F 


LbcIbut de cassétte pour 
AMSTRAO CPC 664 
CPC 6128 


-.390 F 





4 P 


SOURIS AMX POUR CPC 

Fournie avec 4 logiciels 690 F 
































































































PC 1512 AMSTRAD 

EN STOCK 
DISPONIBLE 
IMMÉDIATEMENT 



VOTRE PC 1512 AVEC DISQUE DUR 
IMMEDIATEMENT CHEZ HYPER CB! 


DISQUES DURS TANDON 
lOMo 20 Mo AO Mo 

4.795 F 5.395 F 10.995 F 






Communication 

183 rue Saint-Charles 
75015 Paris 
16 (1) 45.54.39.76 

Métro Place Balard 

ouvert du lundi eu •emedl de 9 h 30 à 19 h 30. 


PC 1512 

Lecteur disquette 
360 Ko 


PC 1512 SD 

Ecran monochrome 

■1 997 F 

Ecran couleur 

B 890 F 

PC 1512 DD 

Ecran monochrome 

6.290 F 

Ecran couleur 

8190 F 

DMP 3000 

Prix H F 


1.930 F 

Prix H T (_ - 


PC 1512 

Avec disque] dur 

20 Mo 

PC 1512 HD10 

Ecran monochrome 9 990 F 
Ecran couleur 11890 F 




PC 1512 


16 BITS-8 MHZ-512 Ko 
COMPATIBLE PC 


ORDINATEURS " J RO 

-pr im: sd couleur. 

—PC 1312 SD MONOCHROME... 

-PC 1512' DD COULEUR. 

-PC 1512 DD MONOCHROME... 

PC, 1512 HD 20 COULEUR... 

-PC 1512 HD 20 MONOCHROME 

ORDINATEURS TRAIT.TEXTE - PCW 


^ lt LÊNoK®î E 


c ARTS 


-PCW 8256 
-PCW 8512 


-256 Ko... 
-512 Ko... 


47 AO 
5926 


PERI RM FT R I OUES 
RC ISIS PCW 


IMPRIMANTES PC 1512 


IMPRIMANTE DMP 3000. 2290 

-KIT RELIANT 1 PC A 2 IMPR1M. 590 


PERIPHERIQUES PC 1512 


—FD3 - LECTEUR DISQUE (B) PC. 1780 


PERIPHERIQUES PCW 0256-8512 


-LIGHT PEN-CRAYON OPTIQUE. 
—ECRAN PROTECTION MONITEUR.. 
-EXTENSION 256 KO + MANUEL.. 
-FD2-LECT.DISK-B-PCW 8256. 
-INTERF.JOYSTICK MX 330 PCW. 
-PIED ORIENTABLE MONITEUR... 
-CABLE RALLONGE IMPRIMANTE.. 
-SOURIS + INTERFACE PCW... 


880 

350 

450 

1660 

290 

350 

190 

1500 


PROGRAMMES 
RC 1512 


R RO 


GESTION COMMERCIALE PC 1512 


ALIENOR 2.... 1990 

-LA COMPTA MEMSOFT. 1990 

-COMPTA LPC. 1125 

-COMPTABILITE SAARI. 2350 

-FACTURATION-STOCK FASSI-- 2350 

-GESTION LPC-COliP/FAC/STK. 4980 

-PAIE GIP5I. 2350 


' W 0N0CHM Mt _ 

PC W2 50_ ___—i 

_ —- 

"PCW2H0W 


coulEub 
PCW 2 SD_ 

llcjsnwL 


t imois \ 

\ A 90 f 


PC__- 

PCJ52322.—-*mir ouvrir 

.tte occasion pour o 

votre cari» 


UTILITAIRES PC 1512 


-BASIC COMPILER PC 1512.1175 

-GEM FONT & DRIVERS PACK..... 429 

-GEM FONT EDITOR. ”0 

-GEM PROGRAMMERS TOOLKIT.1990 

-TURBO EDITOR TLBOX PC. 700. 

-TURBO GAMEWORKS TLBOX PC- 700 

-TURBO GRAPHIX TLBOX PC. 700 

-TURBO JUMBO (PACK) PC. 29t0 

-TURBO DATABASE TLBOX PC. 700 

-TURBO PASCAL B7 * BCD - PC.. 1180 

-TURBO PROLOGUE PC. 1180 

-TURBO TUTOR PC. 350 

-YES YOU CAN (GENERATEUR). 1175 

INTEGRES PC 1512 

—CALCOMAT PC 1512. 820 

-DATAMAT PC 1512 . 320 

-DBASE 3 PC.5*429 

-DBASE 2 PC. 1175 

-EPISTOLE JUNIOR PC.1175 

-EVOLUTION SUNSfcT (GEM)... 117', 

-FRAMEWORK PREMIER. 1175 

-GEM DRAW BUSINESS LIBRAR. . 429 

-GEM DIARY. 29 

-GEM DRAW. 99U 

-GEM G RA PH. P 90 

- GEM UORDCHART. 990 

-GEM WRITE. "0 

-GEM JT BASE... 590 

-MULTIPLAN JUNIOR PC 1512.... 700 

-MÀLETTE PRACT I (FIL) . 1*750 

-REFLEX -BASE DONNEES. 825 

-REFLEX * WORKSHOP PC 1512... 1775 

—SIDEKIK -PC 1512. 390 

-SIDEKIKE PC & COMPATIBLE- 945 

-SUPERCALC 3 -TABLEUR. B90 

-TEXTOMAT PC 1512. 820 

-VP PLANNER PC 1512.1175 

-WORD JUNIOR PC 1512.H75 

-WORDSTAR 1512. 890 


RTE DISQUE 
DUR 

TANDON 

20 Mo 


PROGRAMMES RRO 
PCW 


GESTION COMMERCIALE PCW 

-ALIENOR COMPTA PCW (LOGICYS) 

1060 

-ANALYSE FINANCIERE (LOGYS).. 

240 

-PAYE CRESUS PCW (LOGYCIS)... 

1 175 

-DEVIS TRAVAUX TALOS-LOGICYS. 

1750 

-FACTUR.STOCK (LOGICYS)... 

1755 

-GESTION DOMESTIQ.(LOGYS). 

250 

-NOSTRADAEUR-ANALY.FINANC. 

490 

—OPTICAISSE. 

790 

INTEGRES PCW 8256-6512 

ACT 1 (LOGICYS). 

810 

-DATAMAT PCW. 

590 

-DBASE 2 PCW. 

790 

-DBASE 2 - GENERATEUR A P PL. I C . 

220 

GESTION ASSOCIATION. 

1 190 

-GESTION FICHIERS (LOGYS). 

260 

-GESTION COMPTA -t- MAILING. 

950 

-MULTILPLAN PCW. 

499 


790 

-POCKET CALC. 

450 

-POCKET WORDSTAR. 

890 

UTILITAIRES PCW 0256-0512 


-AUTOFORMAT ION/ASSEMBLEUR... 

-AZERTY CLAVIER PCW. 

-C BASIC. 

-COBOL (ANGLAIS) COMPILATEUR 

-DB COMPILER. 

-DR DRAW. 

-DR GRAPH. 

—EXBASIC. 

-GENECAR-GRAPHISME (COBRA). 

-PCW GRAPH. 

-INTEGRE 2 PCW (LOGYS >. 

-PASCAL/MT+. 

-ROTATE - IMPR.BIDIRECTION. 
-TASPRINT - POLICE CARACT.. 
-TELE TUTOR CLAVIER. 


295 
25 0 
650 
550 
790 
650 
650 
250 
200 
395 
690 
650 
350 
250 
490 


Magasin Exposition-Vente 




























































































































FAMILIAUX O I SK 


GESTION ENTREPRISE DISK - CPC 


-COMPTABILITE LOGICYS. 1640 

-DEOIS TRAVAUX (LOGICYS).. 1280 
—FACTUR.PLUS (LOGICYS)... 1390 
-FACTURE-CAISSE (LOGICYS). 1390 


GESTION FAMILLE DISK - CPC 


-AGENDA 

< LOGYS). 

165 

-BUDGET 

FAMILI AL/LORICIEL. 

220 

-CARNET 

ADRESSES (LOGYS).. 

165 

-GESTION 

DOCUMENT (LOGYS). 

1B0 

-GESTION 

DOMESTIQUE-L06YS. 

200 

-GESTION 

FICHES (LOGYS)... 

200 


HASARD-CHANCE-ASTRO DISK - CPC 


-ERE DU VERSEAU. 

-GRAPHOLIGIE fc P IORYTHME. 


230 

199 


INTEGRES DISK - CPC 


-AMSWORD (TRAIT.TEXTE >. . 
-CAHIER DE TEXTE (LOGYB) 

-CALCUMAT. 

-C.A.0 (LORICIEL). 

-DATAMAT (BASE DONNEES). 
-DBASE 2 (PASE DONNEES). 

-INTEGRE 1 (LOGYS). 

-LORIGRAPH (LORICIEL).. 
-MA5TERFI LE (AMSTRAD).. 

-MULTIPLAN. 

-POCKET BASE. 

-POCKET WORDSTAR. 


290 

165 


4 C 0 


410 

450 

790 

490 

310 

345 


499 


790 

890 


HYPER-CB vous ouvre 
un compte crédit-permanent de 


15 000 


A VOTRE NOM. 
IMMÉDIATEMENT. 


-TURBO GRAPH1X TOOLBOX...• 

70G 

-TURBO PASCAL -BORLAND.... 

940 

-TEXTOMAT. 

45Q 

UTILITAIREB DISK - CPC 

-AUTOFORMATION ASSEMBLEUR 

295 

C COMPILER. 

450 

-DAMS (ASSEMBLEUR). 

395 

-DB COMPILER. 

490 



-DR DRAW. 

670 





-LOGO FRANÇAIS (COBRA).. 

180 



-PASCAL BQ (CPM 2.2 & CPM 

+). 480 

-POLYMAIL/POLYWORD. 


-POLYPLOT POLICE N 9 1- 


-POLY/POLICE N° 2. 






-POLYPROGRAMME COMPLET N° 

1.. 1106 

-SCRIBE (LOGYS). 

165 

-SCRIPTOR (ESAT) . 

165 



-SYCLONE 2 (ESAT) . 

165 

-SYSTEM X. 


-TRANSLOCK (ESAT). 

185 

-TRANSMAT. 


-U DOS. 

380 




FAMILIAUX 

K 7 

GESTION FAMILLE K7 - CPC 

-CAHIER TEXTE (LOGYS).... 

150 

-GESTION D0ME5TIQ.(LOGYS) 

1BG 

-GESTION FICHES (LOGYS).. 

180 

HASARD-CHANCE K7 - CPC 

-GRAPHOLOGIE t, BIORYTHME. 


-LOTC. 

99 

INTEGRES K7 - CPC 

-AMSWORD (AMSTRAD). 

245 

-C.A.0 (LORICIEL). 

320 

-LORIGRAPH (LORICIEL)... 

. 210 

-MASIERFILE (AMSTRAD)... 

290 

-5PACE MOVING. 

295 

UTILITAIRES K7 - CPC 


*15.000 F sur un compte à votre nom. 

Votre compte sera ouvert pour 15.000 F maximum II vous 
sera personnel. 

Cependant, dans un premier temps, vous pouvez en limi¬ 
ter le montant à un crédit utilisable entre 2.000 et 15 000 F 
(mais vous avez toujours la possibilité d'augmenter ce 
crédit utilisable jusqu'aux & 000 F qui vous sont acquis) 
Votre remboursement mensuel sera fixé forfaitairement à 
6 % du montant du crédit utilisable Bien entendu, si vous 
n'effectuez aucun achat vous ne remboursez rien 
*15.000 F disponibles immédiatement. 

Après acceptation de votre demande, vous avez Carte 
Blanche chez HYPER-CB Votre compte est ouvert immé¬ 
diatement et vous partez avec votre maténel. 
Comment «voir Carte Blanche 
CHEZ HYPER-CB? 

Au magasin HYPER-CB (183 rue St-Charies, 75015 Paris) 
Par correspondance en nous retournant le bon ci-des- 
sous, vous recevrez par retour, l'imprimé de demande 
d'ouverture de carte qu'il vous faudra remplir et nous 
adresser pour acceptation. - _ _- 


HYPER 

Carte 

^pjlanche 


Papier " ècBSSa ''“ ,iï 0 “ C X dE 

J L .-__ Annulé 


| sa ,»„r-i-èieXS'Ecâ,; (ou an - I**- 8 ™' è . 


-AUTOFORMATION ASSEMBLEUR. 195 

-A Z I MUTAGE - REGI. AG. LE CT. K 7. 140 

-DAMS ASSEMBLEUR. 295 

-INITIATION BASIC (AMSTR). 245 

-PRINTER PAC. 150 

-SCRIPTOR (ESAT). 130 

-SPIRIT. 125 

-SUPER SPRITE.150 

-SYCLONE 2 (ESAT). 130 

-SYSTEM X (ESAT). 160 

-TOMCAT (ESAT). 130 

-TRANSLOCh (ESAT). 150 

-TRANSMAT.150 

-ZEDIS 2.130 


EDUCATIFS AMSTRAD DISK 

-ANATOMIE (CORE). 199 

-ANIMALIER. 180 

-ASSIMIL (ANGLAIS).590 

-BALADE AU PAYS DE BIG BEN.... 250 

-CAMELEMATHS <CÛRE). 1 Q 9 

-CALCUL MENTAL (LOGYS)- 160 

-CAMELEMOTS (CORE). 199 

-GEOGRAPHIE. 220 

-VALISE AVEC KIT 1+2+3-COBRA.. 499 

-KIT N 0 1 (COBRA).299 

-KIT N°2 (COBRA).299 

-KIT N°3 (COBRA).299 

-KIT N°4 (COBRA).299 

-KIT N°5 (COBRA).299 

,-KIT N°6 (GEO) COBRA..299 

-KIT N«8 (COBRA).299 

-MONDE (LE) - (CORE). 199 

-OUATRE SAISONS.199 

-SQUELETTE (CORE). 199 

EDUCATIFS K7 - CPC 

-ANATOMIE (CORE). 150 

-ASSIMIL (ANGLAIS).550 

-ATTRAPE MOTS . 99 

-CAMELEMATHS ( CORE ) . 150 

-CAMELEMOTS (CORE).... 150 

-FRANCE (LA) - (CORE). 150 

-HISTOQUIZ (COBRA). 120 

-L0G1 FORMES. 120 

-MONDE (LE) - (CORE). 150 

-N°01 - MEMORAM (ORTHOGRAPHE). 140 
-N°02 - AMSTERM (PLURIELS).... 140 

-N 6 03 - NOMBRES + DI CO .1*0 

— N°04 - MATHASARD (CALCUL)- 140 

-N°05 - ORTHO-REPER(ALG+GEOM). 14Q 

— N°06 - VOCABULAIRE. 140 

-N°Ü7 - CONJUGAISON. 1*0 

—N° 09 - AMSCOM PFNDULE. 140 

-N 9 10 - TABLES A DECIMALES.... 140 
-N°ll - PROBLEMES COURS MOY... 140 

-N<*12 - PROBLEMES 6 EME.140 

—N° 15 - PARTI CIM. 1*0 

-N 9 17 - SYSTEMETH OPERAM.140 

-N 9 19 - GEO (FRANCE). 140 

-NUMERUS. 150 

—NUME ROLOGIE. 120 

-ORTHOSTRAD (CORE). 150 

-PTTMAN DACTYLO (FRAPPE).. 99 

-PLANETE BASE. 150 

-SQUELETTE ( COPE ) . 150 


’MW, 1 !., 

-180 1 . 40 

-5 A SIDE . 40 

-APPRENTICE (THE). 30 

-BACK TO REALITY . 30 

-BIG SHOPBANNER . 30 

-CAVES OF DOOM . 3D 

-CFRBERUS . 30 

-CHILLER . 3D 

-CONQUEST . 40 

-FEUD . 30 

-FINDERS KÊEPERS . 30 

-F T VE A SIDE SOCCER . 40 

—FLY SPY . 30 

-FORMULA 1 SIMULATOR . 30 

-GOLDEN TALISMAN . 40 

-GUZILLER . 30 

-HOLE IN ONE . 40 

-INTO OBL IVION . 3G 

-KANE . 30 

-KENTILLA . 30 

-KILLAPEDE .- 3CI 

-KNI6HT TYME . 40 

-LAST V8 . 40 

-LOCOMOTION . 30 

-MOLECULE MAN. 30 

-MONTERAOUEOUS . 30 

-NINJA . 40 

-NUCL.EAR HERST .. ... 30 

-ONE MAN AND HIS DROID . 30 

-PIPELINE . 30 

-RADZONE . 30 

-§HORTS FUSE . 30 

-SOUL OF ROBOT . 30 

-SPEED FINS .-. 30 

—SPELLBOUND... 40 

-STORM . 30 

-TROLL IWALL.TE . 30 

-XCEl . 30 

-ZUP . 40 

PROMOTION INTEGRES AMSTRAD 

-MINIFILE (AMSTRAD) . 35 


O RD I NAT Fl JF 


99 F 

LA DISQUETTE 


HOUSSES AMSTRAD 


-HOUSSE 

CLAVIER 464/664. . . 

80 

-HOUSSE 

CLAVIER CPC 6128.. 

BU 

-HOUSSE 

LECT.DISK DD1/FD1. 

70 

-HOUSSE 

MON IT . COUL • C TM644. 

130 

-HOUSSE 

MON I T.MONO.GT65... 

130 


RANGEMENTS D T V E£ R S 


BOITES RANGEMENT DISK 


-BOITIER RANGE.50 DISK 3’. 
-ETUI PROTECTION K7. 


150 

3 


PROMOTION JEUX DISK AMSTRAD 


-°ACK MASTERTRONIC N°l/3 JEUX. 99 
-PACK MASTERTRONIC N«2/3 JEUX. 99 
-PACK MASTERTRONIC N«3/3 JEUX. 99 


PAPIER L I ST TNG 


PAPIER LISTING 11» 


-1000 FFUILL.ES DOUBLES 11» 360 
-2500 FEUILLES SIMPLES 11* 230 
-500 FEUILLES SIMPLE 11».. 65 


JEUX DISQUETTES 

JEUX DISQUETTES 

JEUX PC 1512 

JEUX PCW 0256-8512 

-ARCHON.360 

-BOULDERDASH.120 

-BRIDGE MASTER.490 

-BRUCF LFF. 235 

-3 D CLOCK CHESS (PCW)...: 160 

-AMST RAMDAMES. 200 

-BATMAN. 170 

-BOUNDER IJASH.220 

-CHESS MASTER.520 

-CYRUS 2 CHESS.245 

-DAMRUSTFR. 235 

-BRIDGE =LAYER. 200 

-CLASSIC 1NVADLRS (THE). 190 

C0L03SUS CHESS. 1 BO 

-DECISION DESERT.230 

-FAI RL IGH~. 160 

-ECHEC 3 D . 195 

-F 15 STRIKE EAGLE. 290 

-FLIGHT SIMULATOR .* 490 

-HELLCAT. 235 

-HISTOIRE D’OR .310 

FORCE 4—MISSION DETECTOR. 180 

—GRAPHO—BIORYTHMES. 200 

-HISTOIRE D’OR. 230 

-LORD OF THE RINGS. 28U 

• REVERSI. 200 

-JET (SIMULATION PILOTAGE).... 590 
-ME AN 18 (GOLF).240 

-STRIKE .FORCE HARRIFR . 210 

-TOMAHAWK. 210 

-trivia; poursuit . 270 

-ONE ON ONE.360 



PAPIER LISTING 12’ 


DEMANDE DE CARTE BLANCHE 

K retourner a HYPER-CB. 183 rue St-Charles 15015 Pans 


i - 


Je soussigné, désire recevoir une Cirte Blanche HYPER-CB et 
ouvrit un compte crédit-permanent 
Nom • 


Prénom _ 
•dresse _ 


-X 1 


I - 


"? I 


ORPHEE. 

PASSAGERS DU VENT (LES).. 
PINBALL CONSTRUCTION SET. 

■PISTOP 2. 

SEVEN Cl TI ES OF GOLD. 

SHANGAI. 

SILENT SERVICE. 

SOLO FLIGHT. 

SPTIFIRE ACE. 

STARFLIGHT. 

STARGLIDER. 

SUMMER GAMES 2. 

TEMPLE APSHA1.. 

TERA.. 

TOP 5FCRE T. 

WIN7ER GAMES 1. 


300 

320 

360 

230 

360 

220 

260 

210 

210 

440 

290 

245 

290 

220 

300 

22G 


-1000 FEUILLES DOUBLES 12»_ 190 

-2500 FEUILLES SIMPLES 12».... 240 
-500 FEUILLES SIMPLES 12». 80 


ETIQUETTES LISTING 


-3000/1 ETIQUETTE 107x48.. 340 

-4000/1 ETIQUETTE 09x36... 310 


PAPIER FEUILLE A FEUILLE 


-500 FEUIL.PAPIER LETTRE.. 


RUBANS IMPRIMANTES 


RUBANS IMPRIMANTES AMSTRAD 


-RUBAN DMP 1000. 
-RUBAN DMP 2000. 
-RUBAN PCW. 



16 chaînes 


Transformer votre bon vieil Amstrad en véritable TV... 
Une sacree idée, non ? Ce qui vous empêchera 
pas de continuer à jouer ou à programmer ■ 
vous pouvez alterner à loisir ! 


TUNER TELE 

1390F 




















































































































































































































































































JEUX AMSTRAD • CASSETTES | JEUX AMSTRAD • CASSETTES JEUX AMSTRAD • CASSETTES JEUX AMSTRAD • CASSETTES 


~ID01 EC . 140 

— I B1 5. 350 

3 D TIGHT . 140 

-3 .D GRAND PRI X . 120 

*>- 50' JEUX . : . . 1 -......... 130 

• *AXE.. . . .. 150 

- -ACES OF ACES. 110 

- - AlGI F D’OR. 1/0 

-AMIENS 2, .......... . . 1 2 U 

-AMSTPAD- ACADEMr.. . SCO 

vAM-tl-RIAD ... . -F 

. ‘ T-A30HALT . . . ... 4fî 

. -A‘VErv«ER... . . ..» . '9Q 

-PACTRON.. . . 1AH 

•P^T AILLE PF M f DW A » . 120 

r-BATAILLF. L*’ANGLETERRE. ... : . 0 

-BATAILLE PREVETS . .‘20 

,-B^TMAN.- . 90 

-BTG A .. .y ..... . lOO 

--BÏGGLES ... t 10 

* n-PÎ-1 LV LA BANLIEUE.. 140 

;tBON3JACN 2. .. 90 

ï '-BOÜLbERDASH 3 . SG 

,f -BREAKTHpU,.'» .. VOO 

:-BÔG<5Y.. . J>0 

;-CÂPCOM , 194/. 90 

; -CAULDRON 2. . , . .. 90 

'I.-CHE0P5. . . . . '.. 149 

■ '--CWlP N° l - COMPILATION.. 3 20 

’-CcSLUSSUS CHES5 4 . 100 

, ri'ÇftflBAT LYNX. 90 

rCOSMTC SHOCK ABSORBER.... 110 

■-CŸRUS 2 CHESS . 11C 

j -BAMBUSTEP.. .1 00 

-DANDARÉ. .. 119- 

,-DEACTIVAT OP . i 10 

. -DESERT FOX.. 100 




-MANDRAGORE. 

260 



-MARACAIEO. 

1 40 

-DRAGON’S LA IR. 

SG 

-MASSACRE A LA TOMATE. 

120 



-M’FNFIN . 

3 50 

EAGLE NEST. 

. 100 

-MEURTRES SUR L’ATLANTIQUE 

220 

Et ITF (EN FRANÇAIS)... . 

1 70 

-MEURTRE A GRANDE VITESSE. 

199 " 

-FAIRLJGH7. 

3 40 

-MEURTRE EN SERIE. 

240 

-FINDEPS KEEPERS. 

10 

-M.G.T. 

1 40 



-MIAMI VICE. 

90 

-FOURMOST ADVENTURE. 

1 10 

-MICRO SCRABBuE. 

210 

-GALACHIP. 

140 

-MINDSHADOW. 

100 

-GAUNTLET. 

99 

-MINES DU ROI ACKANTUS.... 

120 



-MISSION FLEVATOR,. 

90 



-MONOPOLY. 

1 60 

-GIFT PACK. 

90 

-MYSTERE DE KIKEKENKOI_ 

180 



-NEXUS. 

1 10 



-NIGHT GUNNER. 

80 

-GREEN BFRFT. 

100 

-OMEGA PLANETE INVISIBLE. . 

270 



-PACK F IL.... 

140 



-POUVOIR. ... 

1 RO 


t nn 

-PRODIGY . 

3 20 


' 

— RALLVE 2... 

1 30 

-HIT PACK.. 

! ;G 

-RED HAWK . 

90 

— HMS COBRA. 

. 290 

-REVOLUTION.. 

1 10 



-RODEO. 

ItdO 



-ROOM TFN.. 

90 


' D 

-SABOTEUR. 

99 

-INF IL T RAI. np. 

! ,.o 

—SAI COMBAT. 

99 

-JEUX SANS FPCtNI 1ERE S. . . . 

. no 

-5AILING. 

-SAMANTHA FOX... 

3 30 

100 


t i 0 

-SAPIENS. 

140 



-SCOOBY DOO. 

99 

LAURÉATS UES,... 

1 ôÔ 

-SECRET DU TOMBEAU <LE>... 

160 



-SHOCL 1 - WA y RIDER. 

90 

-LORD OF MIDNIGHT. 

90 

-SHOGUN. 

1 10 



-SILENT SERVICE. 

1 20 



-SKVFOX. 

110 



-soit' A MILLION 3 (THEY).. 
-SOLD A MILLION 2 (THEY).. 

1 10 

1 10 


-fOOl B.O . 

-1B15. 

-3 D FIGHT. . 

: -3 D GRAND PRIX. 

50 GAMES . 

AXE . 

-ACES OF ACF S. .. 


I 99 
200 
1 60 
195 
160 
1 60 


-AIG..E D’OR. 

. 200 

-ANTI RI AD 


. 150 










-BATAILLE 

D’ANGLE TE RRF. . . 

. 20D 

BATAILLE 

BREVETS. 

. 220 

-BATAILLE 

DF M TDWAY. 

. 2;ti 


-BATMAN . 150 

-BIG 4. 140 

-BIGGLES . 150 

- B T l i_ Y LA BANLIEUE. 200 

: -ELUE WAR. 210 

' -BOB WINNER.- 200 

-BONBJACK 2 . J 50 

-BREAKTHRU .'. 150 

-BRIDGE .. .. 300 

-CAPCOM 1942 . 1/0 

-CAULDRON 2 . 3 30 

' -CHIP N“ 1 - COMPILATION.. 180 

’ -COLQSSUS CHESS A.. ) v.0 

-COBMIC SHOCK APSORPER - 190 

-CYRUS 2 CHFSS <ECHECS>... 1 Ad 

-DANDARE. 120 

-DEACTIVATOR . loO 

-DEMAIN HOLOCAUSTE . ^'50 

■ -DESERT FOX.. 160 

-DEVIL’S CASTLE . 200 

-DIAMANT ILE MAUDITE . 220 

-DRAGON'S LA IR . 120 

-DRAGON’S l.A I R 2 . l50 

-EAGLE NF.ST . 150 

-EL ITE (EN FRANÇAIS), .> .2 ’20D 

-EMPIRE . 230 

-FAIRLIGHT . 199 

-FER ET FLAMME . 280 

-FOOT .i..i s ,‘y-- 2Q0 

; 2FRANCK BRUNO POXING...... 150 

GAUNTl.FT _ 2. .... 150 ' 

-SH05TS’ N ’ GOPL i'NS . .'-.... l'JO 

L GL1DER RIDER. . . s’. : _ 140 

-SOLD HITS .....'.. 100 


JEUX AMSTRAD • DISQUETTES JEUX AMSTRAD • DISQUETTES JEUX AMSTRAD • DISQUETTES 


-SOLD MILLION 3 (THEY).... 110 

-SORCERY. 99 

-SPACE SHUTTLE. 120 

—SP I TF IRE 40.. 110 

-STAR GAMES. 110 

-STRATEGY. 150 

-STREET HAWK. 9Q 

-STRIKE FORCE HARRIER. 100 

-SUPER CYCLE. 110 

-SWEEVO'S WORLD. 120 

-SYNDROMF <lE>. 120 

-TARZAN... HO 

-TEMPESTE. 110 

-TEMPLIERS (LES!. 180 

-TENNIS 3 D. 140 

-TENSIONS.’. 140 

-THAÏ POXING. 80 

-THEATRE EUROPE. 120 

-TOPRUh 1942. 11C 

-TOMAHAWK... 110 

-TONY TRUAND. 140 

-TOP SUN. 110- 

-TOUR DU MONDE / BO JOURS. 120 

—TRAILBLAZER.. 3 00, 

-TRANSAT ONE. 140 

-TRIVIAL POURSUIT. 190 

-TT RACER.. 110 

— UCHI MATA. 110 

-VOLLEY BALL. 160 

-WINTER GAMFS. 100 

-XARQ. 120 

-YIE AR KUNG FU 2. 100 

-ZAX X. 160 

—ZOIDS. 100 

-ZOX 2099. 220 


AMSTRAD 




-SAMANTHA FÜX . 

140 

180 



-SAP'FNS .. 

—HARRÿ AN!» HARRY . 

2l0 

-SCOOP Y DOO . 

140 

(L ’ r . 

160 

-SECRET DU TOMBEAU (LE)... 

200 


[99 

-SHOCK WAY RIDFR . 

1 40 



—SHOGUN ■ 

160 

1 70 

—hit pack... 

130 

-SILENT SERVICE.... 

-HMS COPRA. 

280 

-SKYFOX . 

185 

-IKARI WAPRIOR.. 

130 

-SOLD A MILLION 1 (THEY).. 

160 

7 MPihCC T V| C MICETi'iU 

200 

130 

-SOLD A MILLION 2 < THFY).. 
-SOLD MILLION 3 (THEY)'.... 

150 

INF IL T RATOR. 

140 

-KONAMI - 5 COMPILATION... 

150 

-SORCERY + . 

150 

KRAFTON ET XUNK.. . 

200 

-SPIN DIZZY........ .. 

150 

-1 PORCF .. 

150 

-SPITFIRE 40 . 

140 

-MACADAM POMPER. 

220 

—SPY VERSUS SPY . 

150 

-MANDRATiORF. 

295 

-SRAM.. , 

160 

—MAHACAIBo . 

180 

190 

-SRAM 2... 

200 

150 

150 

-MASGUE. 

-5TAR GAMES. 

MASFAfRF A 1 A TOMATE. 

160 

190 

-STRIKE FORCE HARRIER. 

-M’ENFIN . 

-SUPER CYCLE . 

160 

-NEUTRES SUR L’ATLANTIQUE. 

220 

-SWEEVO’S WORLD. 

1 10 

-MEURTRE EN SERIE . 

290 

-S.W REPORTER .. 

220 

-MEURTRE A GRANDE VITESSE. 

150 

-SYNDROME (LE) . 

160 

-M. (1.T.i.. 

100 

-TARZAN ... 

160 

-MIAMI VICE... 

1 10 

-TEMPESTE . 

150 

-MINES DU ROI ACKANTUS- 

100 

-TEMPLIERS (LES) . 

220 

MIS C ! ,1 N ELEVATnp 

160 

230 

—TFNN1S T D. 

1 70 

-MGIMOPDI V. 

-TENSIONS . 

17C 

MICRO SCRABBLE.... 

250 

-THAÏ BOX ING . 

110 

-NFXtIF . 

150 

-THEATRE EUROPE... 

190 

-N TOUT FIJNNFB. 

140 

-TOBRUK 1942 . 

160 

-OMEGA PLANrTE INVISIBLE.. 

275 

-TOMAHAWK . 

150 

-ONE... 

J5C 

-TONY TRUAND . 

* 200 

-UPPlIF F _ .. 

?9K 

160 

—TOP GUN... 

150 


—TOP SFC.RFT. 

240 

PADC PT i .. 

1 90 

-TRAILBLAZER . 

140 

PACTE CI F ». 

230 

-TRIVIAL POURSUIT . 

240 

_pApeuv^pp pu fLMPS. . . 

240 

-TT RACER. 

1 60 

-PASSAGERS DU VENT (LES).. 

299 

-UCHI MATA . 

100 

RA^IM .. 

230 

-UNION JACK.... 

200 

-POUVG I R. . . .... 

' 200 

-V... 

140 

-PRODIGY. 

150 

-VOLLEY BALL . 

210 

-RAID OVFR MOSCOU.. 

.120 

-WINTER GAMES. . ... . . . 

1 40 

-RALLYE ?... 

200 

-XARQ. 

160 

-RAMB". . . . .. 

99 

-YIE AR KUNG FU 2. 

170 

-REVOLUTION .. 

150 

-ZAXX. 

220 

—BonFfr.. t . 

180 

-ZOIDS .i. 

150 

-RfiCiM TEN. . . 

1 30 

-ZOMBIE... 

160 

—,SABr* t EUR_-. 

-SA T COMBAT.. 

150 

1 30 

-ZOX 2099 . 

220 


MICRO APPLICATION 

-LIVRE DU BASIC 2. 179 

-BIEN DEPUTER/PC 1512. 149 

-LIVRE DU GFM. 199 

-GUIDE DU BASIC. . 149 

-LIVRE DU PC 1512 AMSTRAD. 99 

-GUIDE REFERENCE PC 1512.. 249 

-TRUCS l ASTUCES. 179 


f=» c: uj /^MsrR/=w~> 


MICRO APPLICATION 


-BIEN DEBUTER AVEC LE PCW. 129 

-GRAND LIVRE DU PCW. 179 

-LIVRE DU PCW AMSTRAD. 179 


O F 3 O 4-Av A- / é> i 
AIMS r HAO 


MICRO APPLICATION 


-N»l-lRUCS b ASTUCES v:PC. 

-N*2-PROGRAMMES BASIC. . . . 

-N°3 BAS IC/BOUT D. DOIGTS 
-N"*-AMSTRAD OUVRE TOI... 
r-N°5-JEUX/LES PROGRAMMER. 

-N°6-BI BLE DU CPC AMSTRaD 

—N°7-LANGAGE MACHINE. 

-N e S-GRAPHISMES/SONS CPC. 

-N°9-PFEKS 6 POKES . 

-N°10—LIVRE LRCTEUR DISK.. 149 

—N°11—EXTFNSION b PERI PH.. 199 

-N°12-LIVRF CP/M AMSTRAD.. 149 

—N° 1 3 IDEES PUUR CPC . 129 

-M14—ROUTINFS CPC...;.... 149 

-N°15—DEBUTER CPC 6128_ 99 

-N c 16 -BIBlE/CPC 664/6128.. 199 

-N*17-TRUC5/ASTUCES N # 2. .. 129 

-NM9-PP0GRAMMES EDUCATIF. 179 

—N° 20—COM, MODFM/M IN I TFL. .. 3 49 

—N°2l —L IVRE LOGO CPC/PCW.. 149 

BIBLE DU GRAPHISME + DISK 299 

-BIBLE DU GRAPHISME . 199 

-LIVRF BASIC 6128 * DISK.. 249 

-LIVRE DU BA5IC 6128 . 149 


SES- 750 F 



Dimensions pial eau 
105 x 62 x 70 cm 
plateau écran +16 cm 
(aputer *7U F de frais de port) 


^ JBUREAU ORDINATEUR 


Magasin Exposition-Vente 


HYPER-CB 

Communication 

183 rue Saint-Charles 
75015 Paris 
16 (1) 45.54.39.76 

Métro Place Balard 

ouvert du lundi au samedi de 9 h 30 A 19 h 30 


POUR COMMANDER PAR CORRESPONDANCE OU A CREDIT. ENVOVER CE BON A 


m HYPfR-CB Communication 

yj 183. ru. Soint-Chorl.i 73013 8ori. T8I. : 538.39.76 


Nom _ 

Piénom 

Adiesse 


Téléphone _ 
Code postal 
Ville _ 


1 8 

' si 

. V - 

ï i 

-SS - 

-Si? 


A CREDIT 


Je des 'e rece»oif u"e o' ! 'e ureaiaD'e de C'eo l iCE’ELEM' 

Montant de la commande _ - — p 

Nombre de mensua'iies _ /mois 

Versement comptant _____-F 

Zcheguê Z mandat-lettre CCP 


je aes 'ecevcur .l'empu» ie tableau o dessous» 


ARTICLE 

QTE 

PRIX 

TOTAL 






























PaMtc*»at>«« >«■ »»•«* 

0 à SOC f «lOuiai 
* SOO » aïowt*' 

Tou» la» micro», monltaur» 
lactrur» da diaquatta 
COM(-OOM-TOtl MH aatratédar 


ioi«i d<“ i« 

CO^TTidnOi 


_.50» jcommqndl 

- Mi» !__ 

la«r». imprimania» al | 

♦ 100 f I 

r *o«*i 













































































































































































































































































































































* 


k'i ■ • ' : - v •=• • ■ 

Pt. ri ' ■ 

LISTING 


* •• . 
' r" - \ • 


• r • ... . '. * 


Etonnant ce programme... 
Chess a trois fonctions principa¬ 
les : assister à la reconstitution 
(coup par coup) d’une partie de 
championnat du monde entre 
Karpov et Kasparov (dix parties 
en mémoire), étudier une ouver¬ 
ture particulière avec affichage 
des coups (dix ouvertures « célè¬ 
bres » à étudier), faire une par¬ 
tie avec un autre adversaire en 
vous servant de l’ordinateur 
comme plateau de jeu. Dans 
cette dernière option, vous pour¬ 
rez entrer vos coups avec les flè- 


CHESS 


ches du curseur ou par leurs 
coordonnées. Si vous utilisez les 
flèches : 

— dirigez l'étoile sur la pièce à 
jouer ; 


— appuyez sur <DEL> ; 

— dirigez l’étoile sur la case 
d’arrivée ; 

— appuyez de nouveau sur 
< DEL>. 


Le coup est alors enregistré. 
Attention, l’ordinateur ne véri¬ 
fie pas la validité des mouve¬ 
ments des pièces. Si vous utili¬ 
sez le clavier : 

Pour obtenir le déplacement 
d’une pièce, entrez simplement 
la case de départ suivie de la case 
d’arrivée (ex : E2E4). Pour 
roquer, entrez la case de départ 
et la case d’arrivée du Roi. Très 
intéressant au niveau tactique, 
j'espère que CHESS vous fera 
faire des progrès... 

Didier Drugmanne 
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' NE PAS TAPER LES CODES 

DE 

C0NT 

[3063] 



ROLE ENTRE CROCHETS 




310 IF Dï= "3 " THEN GOTO 2590 

[11803 

20 

' ############### 



[502] 

320 GOTO 280 

[4133 

30 

' # # 



C252] 

330 GOTO 3150 

C451 3 

40 

' # # 



[252] 

340 PI0N1I=" "+CHRI(202)+" ":PI0N2I 

[500C] 

50 

' # ECHECS # 



[140] 

=CHRI< 204) +CHRI < 205) +CHRI ( 206) : P ION 


60 

' # # 



[252] 

3I=CHR$(207)+CHRÎ(20S)+CHR1(209) 


70 

' # PAR # 



[1793 

350 TOUR 1l=CHRI(210)+CHRI<211)+CHRI 

[7264] 

80 

' # « 



[252] 

<212):TQUR2I=CHRI(213)+CHR$(214)+CH 


90 

' # DIDIER # 



[4473 

R*<215)iT0UR3$=CHR*(216)+CHR*(2171+ 


100 

' « # 



[252] 

CHRI(218) 


110 

' # DRUGMANNE * 



[1008] 

360 R0I1I=CHR1(219)+CHRI(220)+CHRI< 

[66763 

120 

' #####*######### 



[5023 

221): ROI 21=CHRI <222)+CHRI <223)+CHRI 


130 

CLS 



[91] 

<224):R0I3I=CHRI(225)+CHRI(226)+CHR 


140 

INK 0,1 : BORDER 1 



[1162] 

1< 227) 


150 

WI=CHRI(22)+CHRI <0) 



[17773 

370 CHEV1I=CHRI(22B)+CHRI(229)+CHRI 

[78613 

160 

VI=CHRI(22)+CHRI(1) 



[9243 

(230):CHEV2I=CHRI(231>+CHRI(232)+CH 


170 

CA1I=CHRI(143)+CHRI(143)+CHRI< 1 

[21203 

RI(233):CHEV3I=CHRI(234)+CHRI(235)+ 


43) 





CHRI< 236) 


180 

PAR=0 



[530] 

380 FOU 11=CHRI(237)+CHRI(238)+CHRI( 

[71483 

190 

PRINT CHRI(23)+CHRI(0) \ 



C13143 

239):F0U2I=CHRI(240)+CHRI(241)+CHRI 


200 

C0UP=-1 



[2063 

(242):F0U3I=CHRI(243)+CHRI(244)+CHR 


210 

INK 1 ,11 s INK 3,6:INK 2,24 


[14513 

1(245) 


220 

PEN 31 LOCATE 14,11PRINT 

"**# ME 

[13523 

390 DAMEll=CHR$(246)+CHR$(247)+CHRf 

[53703 

NU ***" 




(248):DAME2I=CHR1(249)+CHRI(250)+CH 


230 

LOCATE 14,2» PRINT " 



[23543 

RI(251)»DAME3I=CHR1(252)+CHR1(253)+ 


N 





CHRI(254) 


240 

PEN 1 : LOCATE 1 ,6i PRINT " 

VOULEZ- 

[47023 

400 WIND0W #1,17,40,1,24 . 

[1329] 

VOUS 

! ? i " :LOCATE 1,7 : PR I NT * 

— 

— 


410 WIND0W #2,2,15,5,15 

[15213 






420 DIM Tl( 8 , 8 ) ,T1I(8,B),T3I(500),T 

[20253 

250 

PEN 2:LOCATE 1,11 1 PRINT 

”1) 

V0 

[61823 

41(20): INK 2,26 



C29193 


IR UNE PARTIE DU CHAMPIONNAT DU 
MONDE ENTRE KARPOV ET KASPAROV" 

260 LOCATE l,16sPRINT "2) ETUDIER 
UNE OUVERTURE" 

270 LOCATE 1 1 20*PRINT "3) ENTRER D C24793 
ES COUPS" 

2S0 DI* INKEYl:IF Dl="" THEN 280 
290 IF D $ = "1” THEN GOTO 2440 
300 IF DI = " 2 " THEN GOTO 2510 


[1162] 

[1502] 

[1266] 


430 FOR 1=1 T0 8iFOR J=1 T0 8:T*(I, [3187] 
J> = " " ï N E X T J s NEXT I 

440 FOR 1=1 T0 7 STEP 2:F0R J=1 T0 [5173] 
7 STEP 2sTl*<J,I>="B":Tll(J+l,I)="N 
"t NEXT J :NEXT I 

450 FOR 1=2 T0 8 STEP 2:F0R J=1 T0 [2771] 
7 STEP 2 : T11 ( J , I ) = 11 N ” : T 11 ( J +1,1 ) = " B 
": N E X T J s NEXT I 
460 C0M = 0t PR0=0: CLS #2 


[1267] 
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470 PLOT 8,152:DRAW 216,152,3:PLOT C7431 J 
8,152s DRAW B,344:PL0T 8,344:DRAW 21 
6,344:PLOT 216,152» DRAW 216,344:PL0 
T 112,152: DRAW 112,344 

480 PEN 2:LOCATE 2,2: PRrNT "BLANC C87023 
NOIR ": PLOT 8,360:DRAW 216,360,3: PL 
OT 8,360: DRAW 8,392:PL0T 8,392:DRAW 
216,392:PLOT 216,360:DRAW 216,392: 

PLOT 1 12,360: DRAW 112,392 
490 IF ENTREE= 1 AND FLECHE=1 THEN C E50733 
QUP=-1 :PEN 3:LOCATE 1,25: PRINT "FIN 
: < TAB > 11 : G0T0 520 

500 IF ENTREE 3 1 THEN PEN 3:L0CATE 1 C32583 
, 25 s PR I NT "FIN : < 0 >":G0T0 520 
510 PEN 3:LOCATE 1 ,24: PRINT "SUITE: C26803 
<SPACE>":LOCATE 1,25 : PR I NT "MENU :< 

£NTER>" 

520 LOCATE #1,1,1 C5713 

530 R = -2: X = -2 [807] 

540 FOR i = l TO 8:X = X + 3:FOR J = 1 TO 8 C30583 
:R=R+3 

550 IF TU(J,I) = "B" THEN PEN #1,1 E [2139] 
LSE PEN #1,3 

560 LOCATE # 1 , R , X ï PR I NT #1,CA1I?VI; [5866] 
iLOCATE #1,R,X + 1SPRINT #1, CA 1 I ; V*j: 

LOCATE #1,R,X+2: PRINT #1,CA1I;VÎ5 
570 NEXT J :R=-2:NEXT I [ 1338] 

580 LOCATE 16,23s PEN 3 s P R I N T "1"; V# [1157] 
) 

590 CH=0:PEN 3:F0R 1=23 TO 2 STEP - [6130] 
3:CH=CH + 1:LOCATE 15,1 s PRINT CH ; Vf}: 

NEXT I 

600. LE= 6 -'iFOR 1=18 TO 39 STEP 3:PEN [42593 
3: LE = LE O : LOCATE 1,25: PR I NT CHRKL 
E); NI;:NEXT I 

610 PEN 2 [5483 

620 RESTORE 630 C6933 

630 DATA TN,CN,FN,DN,RN,FN,CN,TN,PN [41463 
,PN,PN,PN,PN,PN,PN,PN 

640 DATA PB,PB,PB, PB, PB,PB,PB,PB,TB [24793 


,CB,FB,DB,RB,FB,CB,TB 

650 FOR 1=1 TO 2 [4363 

660 FOR J=l TO 8 [6013 

670 READ Al:T# <J , I )=AI [5063 

680 NEXT J :NEXT I [8253 

690 FOR 1=7 TO 8 [6723 

700 FOR J=1 TO 8 [6013 

710 READ AI:TI(J,I)=AI [5063 

720 NEXT J :NEX T I [8253 

730 DEBUT 3 1 :GOSUB 1610 [ 12073 

740 IF FIN= 1 THEN 900 [9213 

750 IF ENTREE 3 1 THEN 2960 [8823 


760 ON ECR GOSUB 1870,1910,1950,198 [46433 
0,2020,2060,2090,2130,2170,2200,224 
0,2260,2280,2300,2320,2340,2360,238 
0,2400,2420 

770 IF OUVER 3 ! THEN 800 [7403 


780 READ Kl:IF K!=“KAR" THEN LOCATE [40483 
1,18: PRINT "BL: KASPAROV":LOCATE 1 
,20: PRINT "NO: KARPOV" 

790 IF K# = "KAS" THEN LOCATE 1 , î 8 : PR [37203 
INT "BL: KARPOV":LOCATE 1,20: PRINT 
"NO: KASPAROV" 


800 IF PAR=0 THEN 850 [11303 

810 IF INKEY!="* THEN 810 [8703 

820 IF INKEY(47)=0 THEN 850 [3293 

830 IF INKEY(18)=0 THEN RUN [3663 

840 GOTO 810 [3063 

850 IF F IN=1 THEN 900 [9213 

860 READ AliLOCATE 1 ,1 :PRINT CHRf(7 [11063 

> i 

870 At=UPPERI(AI) [5333 

880 PAR=1 [5293 

890 IF Al = "ABANDON" OR Al = "NULLE" T [28733 

HEN 1800 

900 IF FIN=1 THEN C0M=C0M+1:AI=T3! ( [28473 
COM) iPRINT CHRK7) } 

910 IF A! = "FIN" THEN 2850 [6043 

920 FOR F=1 TO 4 [9873 

930 Fl(F)=M ID$ <Al, F , 1 ) [ 1 2633 

940 NEXT F [3743 

950 A=ASC(Fl<1))-64 [13303 

960 B=9-VAL (FH2 ) ) C 13933 

970 IF ENTREE=1 AND FLECHE=0 AND Tl [16153 

(A,B) = " " THEN 3120 

980 IF ENTREE 3 1 AND FLECHE=0 AND CO [32263 


UP=1 AND RIGHTK f Tl (A,B) ), 1 ) = "N" TH 
EN 3120 

990 IF ENTREE=1 AND FLECHE=0 AND CO [33223 
UP = -1 AND RIGHTI((T!<A,B)),l)=“B" T 
HEN 3120 

1000 C=ASC(Fl(3))-64 [17263 

1010 D=9-VAL(F!<4)) C16433 

1020 IF PP=1 OR PP=2 THEN 1050 [9893 

1030 IF LEFTI<<TI(A,B)),l)= n P" AND [16133 
ENTREE 3 1 AND FLECHE=0 AND AOC AND 
Tl(C,D)=" " THEN 3120 

1040 IF LEFTK (Tl ( A ,B) ) , 1) = "P" AND [44293 
ENTREE 3 1 AND FLECHE 3 1 AND AOC AND 
T!(C,D)=" " THEN LOCATE 8,20:PRINT 
" ": G0T0 3280 

1050 IF (PP=1 OR PP=2) AND LEFTI((T [63673 
I < A, B) ) , 1 ) = 11 P" AND ENTREE 3 1 AND FLE 
CHE=0 AND AOC AND COE AND TI(C,D) 

=" " THEN 3120 

1060 IF (PP=1 OR PP=2) AND LEFTI((T [80083 
I<A,B)), 1 ) 3 "P" AND ENTREE 3 ! AND FLE 
CHE= 1 AND AOC AND COE AND TI(C,D) 

=" “ THEN LOCATE 8,20:PRINT " 

" : GOTO 3280 

1070 IF RIGHTI(<T!(A,B)),1)="N" AND [25863 
PP=2 THEN PP=0 

1080 IF RIGHTÎ((TI(A,B)),1)="B" AND [31943 
PP=1 THEN PP=0 
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1090 IF FF=1 OR FF=2 THEN 1170 C8793 

1100 IF ENTREE=1 AND FLECHE=0 AND C [37533 
0UP=1 AND RIGHTK <TKC,D) ), 1) = "B" T 
HEN 3120 

1110 IF ENTREE= 1 AND FLECHE=0 AND C £30423 
0UP=-1 AND RIGHTI ( <TKC,D) ) , 1 ) = "N" 

THEN 3120 

1120 IF BG=1 THEN GG=0:G0T0 1170 £13013 

1130 IF PPP=1 THEN 1150 £7503 

1140 IF ENTREE = 1 THEN COM=COM+1 :T3Î £8373 
(COM)=AI 

1150 IF TK A , B ) = "PN" AND B=2 AND D= £16303 

4 THEN PP=2:E=C 

1160 IF TKA,B) = "PB" AND B=7 AND D= £20013 

5 THEN PP = 1 !E=C 

1170 PIECEI=TI(A, B) £12293 

1180 IF TKC,D>=” ■ THEN QWI="-" £ 12923 

1190 IF T $(C,D)< > " " THEN QW*="x" C20583 

1200 IF <PIECEI="PN" OR PIECEI="PB” [58353 
) AND (B = 4 OR B = 5 ) AND <D=3 OR D= 6 ) 

AND AOC AND <PP=2 OR PP=1) THEN Q 
Wl="x” 

1210 IF R0=1 THEN R0=0:G0T0 1270 [13513 

1220 IF AI-"E1G1* OR AI="E 8 G 8 ” THEN £27843 
PRINT #2," 0-0 " j VI ; ; GG=1 :GOSUB 

1830iGOTO 1270 

1230 IF Al="E1 Cl” OR AI="E 8 C 8 " THEN £34443 
PRINT #2,”0-0-0 "jVIj:GG= liGOSUB 
1830:GOTO 1270 

1240 IF F F = 1 OR FF = 2 THEN FF = 0:G0T0 £19393 
1270 

1250 IF PPP=1 THEN PPP=0:G0T0 1270 £9973 

1260 GOSUB 1820 £8953 

1270 T K A , B ) = " " £9843 

1280 LOCATE • 1, A*3-2 ,B*3-2: IF T1K A C 7281 3 
iB) = "B" THEN PEN *1 1 1 1 PRINT #l,CAlt 
5 :LOCATE #1 ,A*3-2,B*3-1:PRINT #1,CA 
1 $j:LOCATE #1,A*3-2,B*3:PRINT #1,CA 
11 ) 

1290 LOCATE #1 ,A#3-2,B*3-2:IF TlI(A £68823 
,B)="N" THEN PEN #1,3lPRINT #1,CA1I 
; :LOCATE « 1, A*3-2,B*3-1 : PRINT # 1 ,CA 
11)iLOCATE #1 ,A*3-2,B*3:PRINT #1,CA 
11 ! 

1300 LOCATE #1 ,C*3-2, D#3-2 :1F T1KC £71893 
,D) = "B" THEN PEN *1 ,1 1 PRINT #1,CA1I 
5 :LOCATE # 1,C*3-2,D*3-l! PR INT #1,CA 
11;ïLOCATE #1,C*3-2,D*3:PRINT # 1 ,CA 
1*1 

1310 LOCATE #1 ,C*3-2,D*3-2: IF T1KC £75733 
,D) = ”N” THEN PEN # 1,3:PRINT #1,CA1I 
):LOCATE #1,C*3-2,D*3-1SPRINT #1,CA 
11):LOCATE #1 ,C#3-2,D*3iPRINT # 1 ,CA 
11 ) 

1320 TI(C,D)=FIECEÎ £5993 

1330 QI=LEFTI <( T!(C,D)),1) [11443 

1340 IF RIGHTI< <TI<C,D) > ,1) = "N" THE £21563 


N PEN #1,4 

1350 IF RIGHTK (TI(C,D) ) ,1) = ,, B" THE £ 1 9403 
N PEN #1,2 

1360 IF Ql="P" THEN M1KPI0N1I: M2I = £27583 
PI0N2I:M3I=PI0N3I 

1370 IF QI="T" THEN M1 î = TOUR11:M2I= £38193 
T0UR2I:M3KTQUR3I 

1380 IF Ql="C" THEN M1 t=CHEV11:M2I= £39893 
CHEV2I:M3I*CHEV3I 

1390 IF Ql= "R" THEN Mll = RO111:M2t = R £2321 3 
0121:M3I=R0I3I 

1400 IF GI="D" THEN M1 l = DAME11:M2I= £13743 
DAME2!:M3I=DAME3! 

1410 IF QI="F" THEN MlI=F0U1I:M2t=F £27123 
0U2I:M3I=F0U3I 

1420 LOCATE #1 , C * 3-2,D * 3-2 :PRINT #1 £57023 
, Ml!jVis!LOCATE #1 ,C*3-2,D*3-1: PR IN 
T # 1 , M2I;VI; :LOCATE #1,C*3-2,D*3: PR 
INT #1,M3I)VI) 

1430 IF A»«"E161" AND QI="R" THEN A £27683 
I=”H1F1":R0=1: GOTO 920 

1440 IF AI = ,I E8G8" AND QI="R" THEN A £33443 
!= " H8F8":Rû=1 : GOTO 920 

1450 IF AI="E1C1" AND GI="R" THEN A £27063 
1 = 11 A1D1 ” : R0= 1 : GOTO 920 

1460 IF Al=" E8C8” AND QI="R" THEN A £16043 
1="A8D8":R0 = 1 : GOTO 920 

1470 IF RIGHTK (TI(C,D) ) ,1) = ,, B" AND £41343 
QI—"p” AND Fl ( 2)=" 7" AND Fl<4)=”8" 

THEN F F = 1 

1480 IF RIGHTK <TI <C,D) ) , 1 ) = "N M AND £45643 
Q!="P" AND FK2) = "2" AND FK4) = 'T 
THEN FF=2 

1490 IF PIECEI="PB" AND B=4 AND D=3 £60593 
AND AOC AND PP=2 THEN A=E : PPP= 1 : T 
K A, 4 ) = " ” !TKC,D) = " PB"iC=A:D=4:G0T 
0 1070 

1500 IF PIECEI="PN" AND B=5 AND D=6 £55583 
AND AOC AND PP=1 THEN A*E:PPP*liT 
K A , 5 ) = " ,I !TKC,D)="PN":C=A:D = 5:G0T 
0 1070 

1510 IF FF=0 THEN 1590 £11393 

1520 IF FIN=1 THEN PRO=PRO* 1 : TU A,B £26663 
) =T4K PRO ) : GOTO 1070 

1530 LOCATE 1 ,18iPRINT " QUELLE PIE £69833 
CE":LOCATE 1,20: PRINT " VOULEZ-VOUS 
?“ : LOCATE 3,22 : PR I NT MD.T.F.C)" 

1540 Gt=UPPERKINKEYI) ! IF Gl="" THE £22773 
N 1540 

1550 IF G ! O " D " AND GIO"T" AND Gl< £29783 
>”F " AND GIO“C" THEN 1540 
1560 IF FF=1 THEN TKA,B)=GI + "B"s PR £34383 
0=PR0+1:T4KPR0)=GI + "B" 

1570 IF FF=2 THEN TKA,B)=GI + "N": PR £40963 
Q=PRQ+1:T4KPR0)=G! + "N" 

1580 LOCATE 1,18:PR INT " £42303 

":LOCATE 1,20s PRINT " 
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"sLOCATE 3,22 : PR INT ■ ":GO 

TO 920 

1590 IF ENTREE= 1 THEN 2960 
1600 GOTO 810 

1610 R=-2: X = —2sLOCATE #1,1,1sFOR H= 
1 TO 8:X=X+3iFOR L=1 TO 8sR=R+3 
1620 IF DEBUT=1 AND H>2 AND H<7 THE 
N 1760 

1630 ZI=LEFT$<(Tl(L,H)),1) 

1640 IF RIGHTI<(Tl(L,H)),1)="B" THE 
N PEN #1,2 

1650 IF RIGHTI((Tl(L,H)),1)="N" THE 
N PEN #1,4 

1660 IF Z$= ,, P" THEN M1I=PI0N1I: M2I= 
P10N2I:M3I=P10N3I 

1670 IF Z $ = 11 T " THEN Mll=TOURlli M2I= 
TQUR2I»M3I=T0UR3I 

1680 IF Z $ = " F" THEN M1Î=FQU1I:M2!=F 


0U2IiM3I=FQU3I 

1690 IF ZI S "D" THEN H 11 = 0 AME 1 I : M2I = 
DAME2IJ M3I*DAME3I 

1700 IF Z $=" R 11 THEN Ml l = RQI 1 I : M2I = R 
0I2!:M3*=R0I3* 

1710 IF ZI="C" THEN M1I=CHEV1I:M2I= 
CHEV2I :M3I*CHEV3I 

1720 IF Zl=" 11 AND T11 ( L , H > = " B " THE 
N PEN #1,1»Mll=CAlliM2l=CAil:M3l=CA 
1* 

1730 IF Z*=" " AND T1I(L,H>="N" THE 
N PEN #1,3:Mll=CAlliM2l=CAll:f13l=CA 
U 

1740 LOCATE #1 , R,X s PRINT #1,M1$;VI; 
sLOCATE #1 ,R,X+1:PRINT # 1,1121j VI ; s L 
OCATE #1 , R, X+2 : PR INT # 1 , M3* ; V* ; ,j 
1750 NEXT L 


1760 R=-2 
1770 NEXT H 
1780 DEBUT=0 
1790 RETURN 

1800 LOCATE #2,1,15 : PR I NT #2," 

11 5 VI ; i LOCATE #2,4,15 : PEN # 
2,2: PRINT #2,Al: PLOT 112,178s DRAW 1 
12,220,3iGOSUB 1850 
1810 GOTO 2850 

1820 PEN #2,2 : PR INT #2,F*(1); Fl < 2 ) \ 
QWI:FI<3);Fî<4> j B M ; V^; 

1830 PRINT CHR!(23)+CHRI<0)! 

1840 PLOT 112,152s DRAW 1 12,344,3 
1850 PLOT 216,1 52 : DRAW 216,344,3 
1860 RETURN 

1870 RESTORE 1880sRETURN 
1880 DATA KAR 

1890 DATA D2D4,G8F6,C2C4,£7E6,B1C3, 
F8B4,S1F3,E8GB,C1G5,C7C5,E2E3,C5D4, 
E3D4,H7H6,G5H4,D7D5,A1C1,D5C4,F1C4, 
B8C6,E1G1,B4E7,F1E1,B7B6,A2A3,C8B7, 
H4G3,A8C8,C4A2,E7D6,D4D5,F6D5,C3D5, 


C 8 8 2 ] 

C 3061 
C 3962] 

[1806] 

[1085] 

C12993 

[13783 

[2267] 


[2503] 


[19253 

[31823 

[32183 

[38383 


[49383 


[20313 


[49763 


[3683 
[3423 
[372 3 
[2613 
[5553 
[60493 


[3933 

[44323 

[13143 

[20803 

[5803 

[5553 

[13913 

[1103 

[161193 


D6G3,H2G3,E6D5,A2D5,D8F6,D1A4,F8D8, 

Cl DI ,D8D7,A4G4,C8D8,G4D7,D8D7,E1 ES, 

G8H7,D5E4 

1900 DATA ABANDON 

1910 RESTORE 1920:RETURN 

1920 DATA KAS 

1930 DATA E2E4,C7C5,G1F3,E7E6,D2D4, 
C5D4,F3D4,B8C6,81C3,D7D6,G2G4,H7H6, 
H2H4,A7A6,F1G2,F8£7,C1E3,C6D4,D1D4, 
E6E5,D4D1,C8E6,C3D5,A8C8,C2C3,GBF6, 
D5E7,D8E7,G4G5,H6G5,H4G5,H3H1,G 2 H1, 
F6G4,E3D2,E7F8,D1F3,F8H8,H1G2,H8H4, 
B2B3, D6D5,F3G3,H4G3, F2G3,C8D8,£ 1E2, 
E8E7,D2C1 

1940 DATA D5D4,C1A3,E7E8, C3D4 ,E5D4, 
A1H1 ,G4E5,H1H8,£8D7,H8D8,D7D8,A3B2, 
E6G4,E2D2,E5F3,NULLE 
1950 RESTORE 1960:RETURN 
1960 DATA KAR 

1970 DATA E2E4,E7E5,G1F3,G8F6,F3E5, 
D7D6,E5F3,F6E4,D2D4,D6D5,F1D3,B8C6, 
£ 1Gî,C8G4,C2C4,E4F6,B1C3,G4F3,D1F3, 
C6D4,F1E1 ,F8E7,F3D1 ,D4E6,C4D5,F6D5, 
D3B5,C7C6,C3D5,C6B5,D1B3,E8G8,D5E7, 
D8E7,B3B5,A7A6,B5B3,F8D8,C1E3,A8C8, 
A1C1,H7H6,H2H3,E6D4,NULLE 
1980 RESTORE 1990s RETURN 
1990 DATA KAS 

2000 DATA E2E4,C7C5,G1F3,E7E6,D2D4, 
C5D4,F3D4,B8C6,D4B5,D7D6,C2C4,G0F6, 
B1C3,A7A6,B5A3,D6D5,C4D5,E6D5,E4D5, 
C6B4 ,F1E2,F8C5,elg 1,E8G8,E2F3,C8F5, 
C1G5,F8E8,D1D2,B7B5,A1D1,B4D3,A3B1, 
H7H6,G5H4,B5B4,C3A4,C5D6,H4G3,A8C8, 
B2B3,G7G5,G3D6,D8D6,G2G3, F6D7,F3G2 , 
D6F6, A2A3 

2010 DATA A6A5,A3B4,A5B4,D2A2,F5G6, 

D5D6,G5G4,A2D2,G8G7,F2F3,F6D6,F3G4, 

D6D4,G1H1,D7F6,F1F4,F6E4,D2D3,E4F2, 

F4F2,G6D3,F2D2,D4E3,D2D3,C8C1,A4B2, 

E3F2,B1D2,C1D1,B2D1 ,E8E1,ABANDON 

2020 RESTORE 2030.-RETURN 

2030 DATA KAR 

2040 DATA D2D4,G8F6,C2C4,E7E6,B1C3, 
F8B4,G1F3,C7C5,G2G3,B8C6,F1G2,F6E4, 
C1D2 ,B4C3,B2C3,E8G8,E1G1,C6A5,D4C5, 
D8C7,F3D4,E4D2,D1D2,A5C4,D2G5,F7F6, 
G5F4 ,C4E5,D4B3,A8B8.F4D4,B7B6,F2F4, 
E5F7,F1D1,F8D8,C3C4,C8B7,G2B7,B8B7, 
C5B6 ,B7B6, C4C5 , B6C6,AlC1,D7D6,C5D6, 
D8D6,D4E3 

2050 DATA D6D1 , C1D1,G7G6,DIC1,C6C1, 
E3CI ,C7B6,C1C5,NULLE 
2060 RESTORE 2070:RETURN 
2070 DATA KAS 

2080 DATA E2E4,C7C5,G1F3,D7D6,D2D4 , 
C5D4,F3D4,G8F6,B1C3,A7A6,F1E2,£7E6, 


[4223 

[15343 

[1133 

[144893 


[39623 


[14613 
[1103 
[ 1 10833 


[11783 
[ 1133 
[121303 


[127723 


[12013 

[1103 

[148953 


[18723 

[16513 

[1133 

[115363 
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USTIKG 


E1G1,F8E7,F2F4,EBG8,G1H1,D8C7,A2A4, 
B8C6,C1E3,F8ES,E2F3,A8B8,D1D2,C8D7, 
D4B3,B7B6,E3F2,D7C8,F2G3,F6D7,A1E1, 

C8B7,E4E5,B8D8,D2F2,E8F8,F3E4,D6E5, 
F4E5,D7C5,B3C5,B6C5,G3F4,NULLE 
2090 RESTORE 2100:RETURN 
2100 DATA KAR 

2110 DATA D2D4,D7D5,C2C4,E7E6,B1C3, 
F8E7,C4D5,E6D5,C1F4,C7C6,E2E3,C8F5, 
G2G4,F5E6,H2H4,B8D7,H4H5,G8H6,F1E2, 
D7B6.A1C1,E7D6,G1H3,D6F4,H3F4,E6D7, 

H1G1 ,G7G6,H5G6,H7G6,E1D2,D8E7,B2B3, 
G6G5,F4D3,E8C8,G1H1,F7F6,DIG1,H 6 F 7, 

G1G3,E7D6,G3D6,F7D6,F2F3,D8G8,D3C5, 
C8D8.E2D3 

2120 DATA D7C8,C3E2,B6A8,D3H7,G8F8, 

H1H6,A8C7,E2G3,D6F7,H6H2,C7E6,C5D3, 
E6G7,C1H1,D8E7,D3F2,F8D8,H7F5,H8H2, 
HIH2,G7F5,G4F5,D8H8,H2H8,F7H8,E3E4, 
H8F7,F2G4,F7D6,G4E3,D5E4,F3E4,B7B6, 
B3B4,C8A6,E3G4,D6B5,D2D3,B5A3,NULLE 
2130 RESTORE 2140s RETURN 
2140 DATA KAS 

2150 DATA D2D4,D7D5,C2C4,E7E6,B1C3, 
F8E7,C4D5,E6D5,C1F4,G8F6,E2E3,E8G8, 
G1F3,C8F5,H2H3,C7C6,G2G4,F5G6,F3E5, 
F6D7,E5G6,F7G6,F1G2,D7B6,E1G1,G8H8, 
C3E2,G6G5,F4G3,E7D6,D1D3,B8A6,B2B3, 
D8E7,G3D6,£7D6,F2F4,G5F4,E3F4,A8E8, 
F4F5,A6C7,F1F2,B6D7,G4G5,D6E7,H3H4, 

E7E3,A1D1 

2160 DATA C7B5,D3E3,E8E3,G1H2,D7B6, C81193 
E2G3,B6C8,G3Ft,E3E7,D1D3,C8D6,F1G3, 
D6E4,G2E4,D5E4,D3E3,B5D4,H2H3,E7E5, 

H3G4,H7H5,G4H5,D4F5,F2F5,F8F5,G3F5, 
E5F5,E3E4,H8H7,E4E7,B7B5,£7A7,ABAND 
ON 

2170 RESTORE 2180:RETURN [908] 

2180 DATA KAR [1101 

2190 DATA D2D4,G8F6,C2C4,E7E6,G1F3, Cil2693 
D7D5,B1C3,F8E7,C1G5,H7H6,G5F6,E7F6, 
D1B3,C7C6,E2E3,B8D7,A1D1,E8G8,F1D3, 
B7B6,C4D5,C6D5,E3E4,D5E4,D3E4,A8B8, 

E1G1,B6B5,F1E1,D8B6,E4B1,C8B7,B3C2, 
G7G6,D4D5,E6D5,C3D5,B7D5,DID5,F8D8, 

NULLE 

2200 RESTORE 2210sRETURN C17113 

2210 DATA KAS [113] 

2220 DATA E2E4,C7C5,G1F3,D7D6,D2D4 , [ 1 1460] 
C5D4,F3D4,G8F6,B1C3,A7A6,F1E2,E7E6, 

E1G1,F8E7,F2F4,E8GB,G1H1,DBC7,A2A4, 

B8C6,C1E3,F8E8,E2F3,A8B8,D1D2,C8D7, 
D4B3,B7B6,G2G4,D7C8,G4G5,F6D7,D2F2, 
E7F8,F3G2,C8B7,A1D1,G7G6,E3C1,B8C8, 
D1D3,C6B4,D3H3,FBG7,C1E3,E8E7,H1G1, 

C8E8 

2230 DATA Fl DI,F7F6,G5F6,D7F6,H3G3 , [8553] 


E7F7,E3B6,C7B8,B6E3,F6H5,G3G4,H5F6, 
G4H4,G6G5,F4G5,F6G4,F2D2,G4E3,D2E3, 
B4C2,E3B6,B7A8,D1D6,F7B7,B6A6,B7B3, 
D6E6,B3B2,A6C4,G8H8,E4E5,B8A7,G1H1, 
A8G2,H1G2,C2D4,ABANDON 

2240 RESTORE 2250:RETURN [1987] 

2250 DATA E2E4,E7E5,G1F3,B8C6,F1B5, [7271 ] 
A7A6,B5A4,G8F6,E1G1,F8E7,F1E1,B7B5, 

A4B3,D7D6, C2C3, E8G8 ,H2H3,C887,D2D4, 

F8E8,B1D2,E7F8,A2A4,H7H6,FIN 

2260 RESTORE 2270sRETURN [1201] 

2270 DATA D2D4 , GBF6, C2C4 ,E7E6,B103, [58423 

F8B4,E2E3,E8G8,F1D3,C7C5,G1F3,D7D5, 

E1G1,B8C6,A2A3,B4C3,B2C3,B7B6,FIN 

2280 RESTORE 2290:RETURN [9243 

2290 DATA E2E4 , C7C5,G1F3,D7D6,D2D4, [5229] 

C5D4,F3D4,G8F6,B103,G7G6,C1E3,F8G7, 

F2F3,B8C6,D1D2,E8G8,E1C1,C8D7,G2G4, 

A7A6,FIN 

2300 RESTORE 2310:RETURN [11833 

2310 DATA D2D4,D7D5,C2C4,E7E6,B1C3, C64003 

F8E7,G1F3,G8F6,C1G5,H7H6,G5H4,E8G8, 

E2E3,B7B6,H4F6,E7F6,C4D5,E6D5,FIN 

2320 RESTORE 2330sRETURN [10493 

2330 DATA E2E4,C7C6,D2D4,D7D5,E4D5, [6250] 

C6D5,C2C4,G8F6,B1C3,E7E6,G1F3,F8E7, 

C4C5,E8G8,F1D3,H7H6,E1G1,B7B6,FIN 

2340 RESTORE 2350sRETURN [11663 

2350 DATA C2C4,C7C5,81C3,B8C6,G2G3, [44573 

G7G6,F1G2,F8G7,G1F3 I G8F6,E1G1,E8G8, 

D2D4,C5D4,F3D4,C6D4,D1D4,D7D6,FIN 

2360 RESTORE 2370îRETURN [6563 

2370 DATA E2E4 ,G8F6,E4E5,F6D5,D2.D4 , [60153 

D7D6,C2C4,D5B6,F2F4,D6E5,F4E5,C8F5, 

B1C3,E7E6,G1F3,B8C6,C1E3,C6B4,A1C1, 

C7C5,FIN 

2380 RESTORE 2390:RETURN [16383 

2390 DATA E2E4,E7E6,D2D4,D7D5,B1C3, [55883 

F8B4,E4E5,C7C5,A2A3,B4C3,B2C3,G8E7, 

D1G4,C5D4,G4G7,H8G8,G7H7,D8C7,FIN 

2400 RESTORE 2410:RETURN [11853 

2410 DATA G1F3,G8F6,G2G3,D7D5,F1G2, [39203 

C7C6,E1G1,C8G4,C2C4,E7E6,C4D5,G4F3, 

G2F3,C6D5,B1C3,B8C6,D2D3,F8E7,A2A3, 

E8G8, FIN 

2420 RESTORE 2430.-RETURN [6513 

2430 DATA C2C4 , F7F5 , D2D4 ,G.8F6, B1C3, [59533 
G7G6,G1F3,F8G7,E2E3,E8G8,F1E2,E7E6, 
E1G1,D7D6,C1D2,B8D7,A1C1,E6E5,D1C2, 
C7C6,B2B4,E5E4,FIN 

2440 CLSsPEN 3:L0CATE 7,1 s PR I NT "CH [69773 
AMPIONNAT DU MONDE 1985* :LOCATE 11, 

3:PRINT "KARPOV - KASPAROV" 

2450 LOCATE 9,5: PR I NT "- [20953 


2460 PEN 2:LOCATE 7,10s PRINT ”10 PA [94773 
RTIES SONT EN MEMOIRE"!LOCATE 7,12: 


C12203 

[1103 

[125533 


[111853 


[12003 

[1133 

[122883 










PRINT "LAQUELLE VOULEZ-VOUS VOIR ?" 


E 1,12s PRINT PRESSEZ LA TOUCHE < 


sLOCATE 16,14 : PR INT "(1 a 10)" 


DEL 

>" :LOCATE 1,14s PRINT "- DIRIGE 


2470 PEN 3:LOCATE 18,17:INPUT ECR 

[1177] 

R L'ETOILE SUR LA CASE D ' ARRIVEE " : L. 


2480 IF ECR< 1 OR ECRMO THEN LOCATE 

[3772] 

OCATE 

1,16s PR I NT •- PRESSEZ A NOUVE 


1,17s PRINT SPACEI(40)î GOTO 2470 


AU < 

DEL >" 


2490 PAR=0 

[530] 

2690 

LOCATE 6 , 19s PRINT "LE COUP EST 

[64523 

2500 CLS: GOTO 330 

[999] 

ALORS ENREGISTRE"sLOCATE 10,21 : PRE 


2510 CLSiPEN 3:LOCATE 10,1s PRINT “E 

[3843] 

NT "- 

..." : G0T0 2750 


TUDE DES OUVERTURES"sLOCATE 12,3: PR 


2700 

CLS:PEN 3s LOCATE 12,1 s PR I NT "E 

[51563 

INT ".." 


NTREE 

DE COUPS"s LOCATE 13,3s PRI NT " 


2520 PEN 2 

[548] 


. i. 11 


2530 LOCATE 2,6: PR I NT "D OUVERTUR 

[10047] 

2710 

PEN 2s LOCATE 2,7s PR INT "POUR 0 

[133683 

E ESPAGNOLE"!LOCATE 2,8:PRINT "2) 


8TENIR LA VISUALISATION DES COUPS"! 


DEFENSE NIMZQ-INDIENNE"s LOCATE 2,10 


LOCATE 2,9 s PRINT "SUR L ’ECRAN , ENTRE 


SPRINT "3) DEFENSE SICILIENNE":LOC 


Z SIMPLEMENT LA CASE“sLOCATE 2,11 s P 


ATE 2,12s PR INT "4) GAMBIT DE LA DA 


RINT 

"DE DEPART SUIVIE DE LA CASE D 


ME" 


'ARRIVEE." 


2540 LOCATE 2,14s PRINT "5) DEFENSE 

[13397] 

2720 

LOCATE 13,14 : PRINT "EXEMPLE : 

[12733 

CARQ-KANN"s LOCATE 2,16ï PRINT "6) 


E2E4 1 



OUVERTURE ANGLAISE"sLOCATE 2,18s PRI 


2730 

LOCATE 2,17s PRINT "POUR ROQUER 

[9041] 

NT “7> DEFENSE ALEKHINE"sLOCATE 2, 


,ENTREZ UNIQUEMENT LA CASE”sLOCATE 


20s PRINT H B) DEFENSE FRANÇAISE"s LO 


2,19: 

PRINT "DE DEPART ET LA CASE D' 


CATE 2,22s PRINT "9) SYSTEME RETI i 


ARRIVEE DU ROI" 


LOCATE 1,24 s PR I NT "10) DEFENSE HOL 


2740 

LOCATE 10,22:PR I NT "- 

[23633 

LANDAISE" 



II 


2550 PEN 1 s LOCATE 30 f 12s PRINT "LAQU 

[5330] 

2750 

PEN 3:LOCATE 11,25* PRINT "PRES 

[1449] 

ELLE ?" s LOCATE 30,14: PR INT “< 1 a 10 


SEZ UNE TOUCHE"; 


) " 


2760 

D $ = IN K E Y f 

[4593 

2560 LOCATE 33,16:INPUT ECR 

[1957] 

2770 

FOR 1=1 TO 100 

[3263 

2570 IF ECR<1 OR ECR>10 THEN LOCATE 

[4579] 

2780 

IF D $ < > " " THEN CLS: GOTO 330 

[9013 

33,16 : PR INT " "s GOTO 2560 


2790 

NEXT I 

[3753 

2580 CLS:OUVER=î sPAR=0:ËCR=ECR+10s G 

[2073] 

2800 

LOCATE 11 ,25:PRINT " 

[8753 

OTO 330 



» . 
t 


2590 CLS s PEN 3sL0CATE 12,1 s PR INT "E 

[5728] 

2810 

FOR 1=1 TO 100 

[326] 

NTREE DE COUPS":LOCATE 14,3s PRINT " 


2820 

IF Dl< >■" " THEN CLS: GOTO 330 

C9013 

_ Il 


2830 

NEXT I 

[3753 

2600 PEN 2:LOCATE 2,7 : PR INT "DEUX M 

[10788] 

2840 

GOTO 2750 

[389 3 

ETHODES SONT A VOTRE DISPOSIT ION“:L 


2850 

PEN 2:LOCATE 8,25: PRINT " 

[20183 

OCATE 2,12s PRI NT "1) FLECHES DU CU 


II 



RSEUR"sLOCATE 2,16 s PR I NT “2) ENTRE 


2860 

FOR 1=1 TO 40 

[533] 

E AU CLAVIER" 


2870 

IF INKEY <18)=0 AND FIN=1 THEN 

[14133 

2610 PEN 1 s LOCATE 13,22s PRI NT "VOTR 

[3308] 

3660 



E CHOIX ?"s LOCATE 13,23:PRINT "- 


2880 

IF INKEY < 18)=0 AND FIN = 0 THEN 

[6233 

II 


RUN 



2620 Di=INKEY$:IF D*="" THEN 2620 

[1256] 

2890 

NEXT I 

[3753 

2630 IF Dl = "1" THEN ENTREE=1 : FLECHE 

[25633 

2900 

LOCATE 8,2 5 : P RIN T "ENTER" 

U420] 

= 1 s GOTO 2660 


2910 

FOR 1=1 TO 40 

[5333 

2640 IF D $ = " 2 " THEN ENTREE = 1 : GOTO 2 

[1376] 

2920 

IF INKEY < 18> =0 AND FIN=1 THEN 

[14133 

700 


3660 



2650 GOTO 2620 

[351] 

2930 

IF INKEY 118)=0 AND FIN=0 THEN 

[6233 

2660 CLS:PEN 3:L0CATE 12,1> PRINT "E 

C5156] 

RUN 



NTREE DE COUPS " sLOCATE 13,3 : PR I NT " 


2940 

NEXT I 

[3753 

. - 11 


2950 

GOTO 2850 

[393 3 

2670 PEN 2 :LOCATE 5,7s PR I NT "AU MOY 

[37543 

2960 

COUP=-COUP 

[7423 

EN DES FLECHES DU CURSEUR," 


2970 

LOCATE 1,20:PRINT SPACEI(14) 

[17563 

2680 LOCATE 1,10:PRINT DIRIGEZ L 

[130113 

2980 

IF C0UP = 1 THEN LOCATE 1,20 : PRI 

[37973 

'ETOILE SUR LA PIECE A JQUER"sLOCAT 

a 

NT " 

BLANC :“:LOCATE 7,20 



38 



















LISTING 


2990 IF C0UP=-1 THEN LOCATE 1,20iPR [40813 
INT "NOIR :"îLOCATE 6,20 
3000 IF FLECHE = 1 THEN 3280 E14213 

3010 INPUT A$ [3231 

3020 IF A$=”0" THEN COM=COM+1 !T3$(C C22823 
OM) = "F IN": GOTO 3660 

3030 Af=UPPER$(Af) C5333 

3040 FOR 1 = 1 TO 4 , C 4503 

3050 W*(I)=MID*(A*,I«1> [1585] 

3060 IF 1 = 1 AND (fcl*< 1 )< "A" OR N*<1) C 2127 3 
>"H" ) THEN 3120 

3070 IF 1=2 AND (H«(2)<"1" OR W*(2) [26433 
>" 8 " ) THEN 3120 

3080 IF 1 = 3 AND <W$<3K"A" OR W$<3> [25853 


3140 GOTO 2970 [3933 

3150 SYMBOL AFTER 200 [14323 

3160 SYMBOL 202,0,0,0,0,0,24,60,60: [132683 
SYMBOL 204,0,0,0,0,0,0,0,0:SYMBOL 2 
05,24,60,126,255,255,126,60,126:SYM 
BOL 206,0,0,0,0,0,0,0,0:SYMBOL 207, 

1,3,3,0,0,0,0,0:SYMBOL 208,255,255, 

255,0,0,0,0,0:SYMBOL 209,128,192,19 

2 , 0 , 0 , 0 , 0,0 

3170 SYMBOL 210,0,0,28,28,28,28,31, [121103 
31:SYMBOL 211,0,0,60,60,60,60,255,2 
55:SYMBOL 212,0,0,56,56,56,56,248,2 
48: SYMBOL 213,31,31,0,0,0,0,0,0:SYM 
BOL 214,255,255,255,255,255,255,255 



> 11 H " ) THEN 3120 

3090 IF 1 = 4 AND <W* <4)<”1" OR W*(4) [26963 
>"8") THEN 3120 

3100 NEXT I [3753 

3110 LOCATE 1,1 :PRINT CHRf<7>): GOTO [14163 
920 

3120 IF C0UP=1 THEN LOCATE 8,20:PRI [21873 
NT " 

3130 IF C0UP=-1 THEN LOCATE 7,20 s PR [21963 
INT " 


,255:SYMBOL 215,248,248,0,0,0,0,0,0 
: SYMBOL 216,0,0,31,31,31,31,0,0 
3180 SYMBOL 217,255,255,255,255,255 C43433 
,255,0,0:SYMBOL 218,0,0,248,248,248 
,248,0,0 

3190 SYMBOL 219,0,0,0,0,0,0,3,15:SY [ 136433 
MBOL 220,0,24,24,126,126,24,153,195 
: SYMBOL 221,0,0,0,0,0,0,192,240 : SYM 
BOL 222,30,56,1 12,96,96,1 12,48,56:S 
YMBOL 223,231,102,126,24,24,24,24,2 
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4s SYMBOL 224,120,28,14,6,6,14,12,28 
! SYMBOL 225,24,24,56,63,32,63,63,0 
3200 SYMBOL 226,24,24,24,255,0,255, [42903 
255,Os SYMBOL 227,24,24,28,252,4,252 
,252,0 

3210 SYMBOL 228,0,0,0,0,0,0,0,1 :SYM C 142543 
BOL 229,0,0,7,20,126,254,223,255: SY 
MBOL 230,0,0,0,128,128,64,64,64:SYM 
BOL 231,1,3,7,15,7,0,0,OiSYMBOL 232 
,255,255,231,135,7,15,31,63:SYMB0L 
233,32,160,160,160,144,208,208,208 : 

SYMBOL 234,0,0,1,3,7,7,0,0 

3220 SYMBOL 235,127,255,255,255,255 [36953 

,255,0,0:SYMBOL 236,200,232,232,232 

,232,232,0,0 

3230 SYMBOL 237,0,0,0,0,0,1,1,0s SYM [123263 
BOL 238,0,14,14,7,199,255,255,255:S 
YMBOL 239,0,0,0,0,128,128,128,0:SYM 
BOL 240,0,0,0,1,1,0,0,0.'SYMBOL 241, 

126,126,60,255,255,60,126,126:SYMBO 
L 242.0,0,0,128,128,0,0,0: SYMBOL 24 
3,1,1,7,15,15,15,0,0 

3240 SYMBOL 244,255,255,255,255,255 [53073 
,255,0,0:SYMBOL 245,128,128,224,240 
,240,240,0,0 

3250 SYMBOL 246,0,0,0,0,0,6,0,102: S [120263 
YMBOL 247,0,0,0,0,24,0,24,24:SYMBOL 
248,0,0,0,0,0,96,0,102:SYMBOL 249, 

6,103,103,119,55,63,31,31 : SYMBOL 25 
0,24,60,60,189,189,255,255,255:SYMB 
OL 251,96,230,230,238,236,252,248,2 
48:SYMBOL 252,15,15,7,4,15,15,0,0 
3260 SYMBOL 253,255,255,255,0,255,2 [37953 
55,0,0:SYMBOL 254,240,240,224,32,24 


0,240,0,0 

3270 GOTO 340 [4643 

3280 IF C0UP=1 THEN X=2:Y=2 [15263 

3290 IF C0UP=-1 THEN X=2:Y=23 [12543 

3300 IF INKEY(79)=0 THEN 3300 [9303 

3310 R=0 [2493 

3320 Al= " 11 [388 3 

3330 PRINT CHRI< 23 )+CHRI(1); [13263 


3340 IF INKEY <68)=0 THEN C0M=C0M+1: (32393 
T3$(C0M) = " FIN";GOTO 3660 
3350 IF INKEY< 79 > =0 THEN R=R+1 : GOTO [ 16793 
3450 

3360 IF INKEY <0)=0 THEN Y=Y+1;IF Y> [22463 
24 THEN Y=24 

3370 IF INKEY(2)=0 THEN Y=Y-1:1F Y< [20313 
1 THEN Y= 1 

3380 IF INKEY(8)=0 THEN X = X-1: IF X< [21373 
1 THEN X = 1 

3390 IF INKEY ( 1 )=0 THEN X = X + 1:IF X> [ 17793 
24 THEN X = 24 

3400 TAG : PLOT -2,-2,2:M0VE X * 16 + 240 [35983 

,Y*16+16:PRINT "#"i:TAG0FF 

3410 FOR 1=1 TO 60:NEXT I [10223 


3420 T AG : PLOT -2,-2,2:M0VE X * 16+-240 [35983 


,Y*16+16:PRINT "*";:TAGOFF 
3430 PRINT CHR*<23)+CHR*<1) j [ 13263 

3440 GOTO 3340 (4453 

3450 L=64:C=48 [3133 

3460 FOR 1=1 TO 22 STEP 3 [8943 

3470 L = L + 1:C=C +1 [6713 


3480 IF X=I OR X=I+1 OR X=I+2 THEN [26273 
Cil=CHRI(L) 

3490 IF Y=I OR Y=I+1 OR Y=I+2 THEN (26763 
C2*=CHRI(C) 

3500 NEXT I [3753 

3510 A=ASC(C1I>-64:B=9-VAL(C2*> C 1 5063 

3520 IF R=1 AND TI(A,B)=" " THEN R= (28703 
0:G0T0 3340 

3530 IF R=1 AND C0UP=1 AND RIGHTIM (33023 
Tl< A,B)),l) = “N" THEN R=0:G0T0 3340 

3540 IF R=1 AND C0UP=-1 AND RIGHTK [24243 
( TI ( A, B ) ) , 1 ) = " B " THEN R = 0:G0T0 3340 
3550 IF R=2 AND C0UP=1 AND RIGHTKl [21043 
T ! < A, B ) ) , l ) = " B " THEN R = 1 : GOTO 3340 
3560 IF R=2 AND C0UP=-1 AND RIGHTI ( [2688 3 
(Tl(A,B)),1) = "N " THEN R=1 : GOTO 3340 

3570 AI=AI+C1$+C2I (7603 

3580 PEN 2:IF C0UP=1 AND R=1 THEN L (18323 
OCATE 8,20 

3590 IF C0UP=1 AND R=2 THEN LOCATE (15793 

11,20 

3600 IF C0UP=-1 AND R=1 THEN LOCATE [16563 
8,20 

3610 IF C0UP=-1 AND R=2 THEN LOCATE [18333 

11,20 

3620 IF R = 1 THEN PRINT Cl I;C2I;"-"; [21463 


3630 IF R=2 THEN PRINT ClljC2! [18883 

3640 IF R=1 THEN 3340 (16703 

3650 GOTO 920 [3323 

3660 LOCATE 1,20:PRINT " (43923 

"iLOCATE 1,24 : PR INT " 

"sLOCATE 1,25:PRINT " 

H 


3670 LOCATE 2,18:PRINT "VOULEZ-VOUS (64173 
"iLOCATE 5,20 : PR INT "REVOIR":LOCATE 
1,22:PRINT "VOTRE PARTIE ?":LOCATE 
5,24 : PR r NT 11 (0/N) " 

3680 DI=UPPERI(INKEYI):IF Dl="" THE (15503 
N 3680 

3690 IF DI = "0" THEN FIN= 1 : GOTO 3720 ( 14773 
3700 IF D! = "N" THEN CLSiRUN (12163 

3710 GOTO 3680 (6643 

3720 LOCATE 2,18: PR I NT " [4499 3 

" :LOCATE 5,20:PRINT " ":LOCATE 

1,22:PRINT " "iLOCATE 

5,24 : PR I NT " 

3730 PRINT CHRK23)+CHRK0) ; :FLECHE [27223 
= 0:ENTREE = 0: GOTO 430 


40 











•§> 

•S> 


C 0 
O — 

J3 © 


© " 
" O. 
N E 

© © g 
® CO C 
© °-® 
«■ 0,1 

CL E 
« E 

« O 
0 ° 

■T 03 
> TJ 


© s 

O u 

© w 
»- c 
OT CO 
3 TJ 
O © 

> 3 

c" © 

« °- 

P « 

I? 

CO 

Q. « 

C — 

o « 

W © 

© © 
TJ 3 ( 

•©o.; 

ra © 1 
co 2? : 

û. > i 


'CD q 

co © 

o. 3 
C/) CD 
O C/D 
> 

- CO 

c aj 

cS 3 
ES 

-5 - 

T3 c 
W <D 

g E 

2S 
S © 

_ CD 


C/D uL 
C 0) 
CO 

XD C/D 
CD 
OJ’O 

.E © 

1— 

C/D O 
~ O 

c 
c ® 
U ♦- 
c 

'CD <D 
CL> 

5 g 

imm 

N 

CD 0) 

a w 


™ 13 
° O 
0 ) 1 — 
c : 


"O =3 

<g ° 

û_ ' 


’ 'CO 
‘CD 


C/D 

C 

CD 

Q. 


CO C/D 
C/D 


C 

w ° 

■a « 

C/D C/D 

p ¥ 


N’USEZ PAS 

VOS DOIGTS ! 

Retrouvez tous les listings de ce 
numéro sur une disquette. Prix 
120 F (port compris). En raison 
de la longueur des listings, nous 
n’avons pas réalisé de cassette. 



BON DE COMMANDE Disquette "Spécial Listings" 

Offre limitée 

Je commande-disquette(s) au prix de ISO f pièce. 

Chèque à adresser à : Amstrad Magazine, 5/7, rue de l’Amiral Courbet, 94160 SAINT-MANDÉ. 

Nom : ......... prénom : ..... 

Adresse !...... 






















LISTING 


SUPERTEST 


aucune faille votre personnalité première partie (la ligne 10 con- (celle qui contient les textes) et 

profonde qui, peut-être, vous a tient la REM test + ) ; sauvegar- sauvez-là comme suit : SAVE 

échappée depuis que vous êtes en dez ensuite cette première partie “test + + Une fois que tout ce 

quête de votre moi. En bref sans la faire tourner. Sauvez-la travail est fait on peut commen- 

prendre ce test avec de la philo- comme suit : SAVE “test +cer le test en faisant: RUN 

sophie serait bienvenue... Quel- Videz ensuite l’ordinateur de son “TEST + ”. Le reste est expliqué 

ques remarques pour taper ce contenu par : NEW ou éteignez sur le programme qui se déroule, 

programme qui contient 41 k simplement votre ordinateur. 

octets de basic. Tapez d’abord la Tapez ensuite la seconde partie POGORI1. 


10 rem Terr+ 


190 PRINT "VOTRE PERS0NALITE: DANS 

[45903 

20 x*=SPACE$ ( 38) 

18533 

VOTRE INTERET," 


30 CLS 

1913 

200 PRINT 

[3613 

40 MODE OiINK 0,0sB0RDER 13*INK i, 

[53103 

210 PRINT 

[3613 

6,18:PEN liLOCATE 6,12*PRINT M * * 


220 PRINT "REPONDEZ EN TOUTE FRANC 

[31153 

SUPER TEST * *" 


HISE...* 


50 INK 2,25 » PEN 2:L0CATE 6,22*PRIN 

[42473 

230 G0SUB 240s GOTO 270 

[10133 

T "COPYRIGHT 1985 


240 ap$=" 

[57273 

BY JOHN F. GARTMAN" 


APPUYER SUR UNE TOUCHE 


60 FOR x = l T0 2 

[7203 

POUR CONTINUER 


70 FOR i = l T0 13 

[3203 

II 


80 READ a,b 

[5441 

250 FOR i = 1 T0 LEN < apt)-37sL0CATE 

[51703 

90 SOUND 1,a,b 

[12873 

1,23s PEN 3s PRINT MID* < ap*,i,37)sF0 


100 NEXT 

[3503 

R t-1 T0 5lNEXT tlIF INKEY*=“" THE 


110 DATA 338,20,301,20,284,40,301, 

[50723 

N NEXT is GOTO 250 


40,338,33,0,2,338,20,301,20,284,20 


260 RETURN 

[5553 

,227,20,301,20,284,20,338,66 


270 CLS 

[913 

120 RESTORE 

[6213 

280 G0SUB 4850sINPUT "Quel est vot 

[38143 

130 NEXT x 

[3563 

re prénom"jpr$ 


140 FOR 1=1 T0 3000îNEXT 

[10033 

290 G0SUB 4850s INPUT "Combien de p 

[40423 

150 MODE 1 1 PRINT * PRINT : PRINT * PRINT 

[127043 

rintemps ave 2 -vous" ) âge 


lPRINT*INK 0,0»B0RDER 4*INK 3,16» P 


300 G0SUB 4850sINPUT "Quel est vot 

[32993 

EN 3iPRINT "DU TEST PSYCHOLOGIQUE 


re sexeiH/F) " j sex* 


QUI VA SUIVRE VA" 


310 IF 5ex4="F" THEN sex$=L0WERf < s 

[20653 

160 PRINT 

[3613 

ex$)s GOTO 370 


170 PRINT "SE DRESSER UN PORTRAIT 

[33583 

320 IF sex$="H" THEN aex*=L0WER* ( s 

[25623 

INFAILLIBLE DE" 


ex$)iGOTO 370 


180 PRINT 

[3613 

330 IF sex$< >"h" AND sex*<>"f" THE 

[16373 


Voici, et j’ose le dire tout fort, 
un programme qui vous permet¬ 
tra de passer de bons moments 
en famille ou avec vos amis. De 
toute façon c’est une chose qu’il 
ne faut pas faire tout seul, si 
vous voyez ce que je veux dire ! ! 
En fait il s’agit d’un test psycho¬ 
logique qui déterminera sans 


42 









N 340 ELSE 370 

340 MODE OlLOCATE 2,12*INK 6,16,26 140513 
iPEN 6iPRINT "ON NE DELIRE PAS," 

350 LOCATE 2,14 «PRINT "S'IL VOUS C20623 
PLAIT ! ! 11 

360 FOR t = l TO 3000 s NEXT:MODE lsGO [20963 
TO 300 

370 IF age<=15 OR age>=35 THEN qwe [16173 
= 1 i a 1 = 1 


z vous":GOSUB 4730 

640 IF argI="a" THEN score=score+4 

650 IF arg*="b" THEN score=score +3 

660 IF a r g $ = " c " THEN score=score+2 

670 IF arg*="d" THEN score=score+l 

680 IF a 1 = 1 THEN GOTO 710 

690 IF a2=1 THEN GOTO 710 

700 IF a3=l THEN GOTO 710 

710 GOSUB 4860 : PR I NT "Comme voitur 


380 IF age<35 AND age>15 THEN z = 2 [25603 

390 IF sex*="h" THEN s=l [8623 

400 IF s e x $ = " f " THEN s=2 [4833 

410 IF z =2 AND s=l THEN qwe=2:a2*l [18693 
420 IF z = 2 AND s=2 THEN qwe=3:a3=l [21453 
430 GOSUB 4870*PRINT "Si vous eti 1148983 
ez de l'argent, vous seriez unie) 

*“: 1=4 s GOSUB 4770 îPRINT " -piece d 
e 1 Tranc":GOSUB 4770:PRINT " -bil 
let de 20 francs"iGOSUB 4770 : PR I NT 
" -piece de 1 centime":GOSUB 4770 


: PR I NT 

" -carte de crédit" 


440 

GOSUB 4770:PRINT 

" -cheque":G0 

[50103 

SUB 

473 

!0iIF arg#="a* 

THEN score=sc 


ore + 4 




450 

IF 

arg*="b" THEN 

score=score+2 

[11273 

460 

IF 

arg*="c" THEN 

scpre=score+5 

[15143 

470 

IF 

arg$="d" THEN 

score=score+l 

[17223 

480 

IF 

arg$="e" THEN 

score^score+3 

[22493 

490 

IF 

a 1 = 1 THEN GOTO 

520 

[5993 

500 

IF 

a2=1 THEN GOTO 

520 

[14133 

510 

IF 

a3=1 THEN GOTO 

520 

[6513 

520 

GOSUB 4860:PRINT 

"Que porterie 

[187123 


z vous entre:"s 1=4 s GOSUB 4770:PRIN 
T * -une perruque":GOSUB 4770: PRIN 
T " -une Fausse moustache":GOSUB 4 
770 : PR INT " -un nez en plastique": 

GOSUB 4770:PRINT " -des lentilles 
de couleur" 

530 GOSUB 4770SPRINT " -un dentier [33143 
":GOSUB 4730 

540 IF arg*="a" THEN scoré=score+2 [15243 
550 IF arg*="b" THEN score=score + 3 [11303 
560 IF argf="c" THEN score=score + 5 [15143 


e vous preferez: " : 1=4:GOSUB 4770:P 
RINT " -une CX":G0SUB 4770:PRINT " 
-une golf GTI":G0SUB 4770:PRINT " 
-une 2 chevaux"«GOSUB 4770:PRINT 
" -une porsche":GOSUB 4770:PRINT " 
-une chevroletGOSUB 4730 
720 IF arg$="a" THEN score=score+2 
730 IF arg*="b" THEN score=score+l 
740 IF a r g t = " c " THEN score = score + 4 
750 IF arg$="d" THEN score=score+3 
760 IF a 1 = 1 THEN GOTO 880 
770 IF a2=1 THEN GOTO 2040 
780 IF a3=1 THEN GOTO 2040 
790 GOSUB 4860:PRINT "Comme vacanc 
es vous prefereriez:":l=4:G0SUB 47 
70:PRINT " -partir a Venise en voi 
lier":GOSUB 4770:PRINT " -voir les 
châteaux de la loire":GOSUB 4770: 
PRINT " -prendre l'Orient Express" 
iGOSUB 4770 : PR I NT " -découvrir Par 
i s" 

800 GOSUB 4770:PR INT " -aller a Be 
r1in-Est":GOSUB 4730 
810 IF a r g $ = " a " THEN score=score+2 
820 IF arg*="b" THEN score=score+l 
830 IF argl="c" THEN score=score+4 
840 IF argl = "d" THEN score=score+3 
850 IF al=l THEN GOTO 960 
860 IF a2=1 THEN GOTO 880 
870 IF a3=l THEN GOTO 880 
880 GOSUB 4860:PRINT "Preferez-vou 
s:":1=4sGOSUB 4770:PRINT " -les Am 
ericains"«GOSUB 4770s PR INT " -les 
Bresi1iens":GOSUB 4770:PRINT " -le 


570 IF arg$="d 11 THEN score=score+4 [17193 
580 IF arg$="e" THEN score=score+l [22433 
590 IF al=l THEN GOTO 620 , [6113 

600 IF a2=l THEN GOTO 1380 [14623 

610 IF a3=l THEN GOTO 2810 [7723 

620 GOSUB 4860:PRINT "Pendant les [162423 
vacances,vous aimez1=4:GOSUB 47 
70:PRINT " -camper":GOSUB 4770:PRI 
NT " -aller a l'hotel"sGOSUB 4770: 

PRINT " -aller voir de la famille" 

:GOSUB 4770:PRINT " -aller au club 
med " 

630 GOSUB 4770 : PR INT " -rester che [51303 


s Al 1emands":GOSUB 4770:PRINT " -1 
es Polonais":GOSUB 4770* PR INT " -1 
es Japonais":GOSUB 4730 
890 IF arg$="a" THEN score=score+1 
900 IF ürg*="b“ THEN score=score+4 
910 IF a r g $="c" THEN score = score + 2 
920 IF arg$="d" THEN score=score+3 
930 IF a 1 = 1 THEN GOTO 790 
940 IF a2=1 THEN GOTO 2520 
950 IF a3=1 THEN GOTO 2520 
960 GOSUB 4860 : PR INT "Comme aperit 
if,vous preferez:":1=4 :GOSUB 4770: 
PRINT " -un pastis"«GOSUB 4770: PRI 
NT " -un malibu":GOSUB 4770:PRINT 


[15383 

[11303 

[15173 

[17223 

[6013 

[13833 

[6133 

[175993 


[15243 

(11243 

[15153 

[17283 

[5753 

[15533 

[7343 

[230803 


[55523 

[15243 

(11243 

[15153 

117283 

[6393 

[13893 

(6113 

[166843 


(15253 

[11333 

(15173 

[17283 

[6493 

[15213 

[7503 

[168633 
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LISTING 


■ -un whisky":GOSUB 4770:PRINT " - 
un schweppes'':60SUB 4770iPRINT ” - 
un porto":GOSUB 4730 

970 IF arg*=”a" THEN score=score+2 

980 IF argl*"b" THEN score=score+4 

990 IF arg$="c" THEN score=score+3 

1000 IF arg*="d" THEN score=score+ 
1 

1010 IF arg$="e“ THEN score=score+ 
5 

1020 IF a 1 = 1 THEN GOTO 1050 
1030 IF a2=l THEN GOTO 1050 
1040 IF a3=1 THEN GOTO 1050 
1050 GOSUB 4860:1=4 ïPRINT "Vous ai 
mez ; 11 : GOSUB 4770:PRINT ■ -les aspe 
rges":GOSUB 4770:PRINT “ -les caro 
ttes":GOSUB 4770sPRINT " -le conco 
mbre“:GOSUB 4770:PRINT “ -la banan 
e":GOSUB 4770sPRINT " -les radis": 
GOSUB 4730 

1060 IF arg$="a" THEN score=score+ 
2 

1070 IF a r g $ = " b " THEN score=score + 
1 

1080 IF argl="c" THEN score=score+ 
4 

1090 IF arg*="d" THEN score=score+ 
3 

1100 IF a 1 = 1 THEN GOTO 1210 
1110 IF a2=l THEN GOTO 2710 
1120 IF a3=l THEN GOTO 2710 
1130 GOSUB 4860:1=4:PRINT "Vous ad 
orez:":GOSUB 4770:PRINT " -la past 
eque":G0SUB 4770:PRINT " -les oliv 
es":GOSUB 4770:PRINT " -les péchés 
":GOSUB 4770:PRINT “ -les tomates" 
:GOSUB 4770:PRINT " -les noix de c 
oco":GOSUB 4730 

1140 IF arg$="a" THEN score=score+ 
1 

1150 IF arg$="b" THEN score=score+ 
2 

1160 IF arg$="c" THEN score=score+ 

3 

1170 IF arg$="d" THEN score=score+ 

4 

1180 IF a 1 = 1 THEN GOTO 1610 
1190 IF a2=1 THEN GOTO 1210 
1200 IF a3=i THEN GOTO 1210 
1210 GOSUB 4860:1=4:PRINT “Comme p 
arfum vous aimez:":GOSUB 4770:PRIN 
T " -rose":GOSUB 4770 1 PRINT " -mus 
c":GOSUB 4770:PRINT " -patchouli": 
GOSUB 4770:PRINT " -1avande":GOSUB 
4770:PRINT " -ortie blanche":G0SU 
B 4730 

1220 IF arg*="a" THEN score=score+ 


C15241 
[11331 
[1516] 
[17223 

[22553 

[7323 

[15363 

[7723 

[164873 


[15243 

[11243 

[15153 

[17283 

[7323 

[14053 

[7363 

[169353 


[15253 


2 

1230 IF arg$="b" THEN score=score+ 
4 

1240 IF arg$="c" THEN score=score+ 
1 

1250 IF arg$="d" THEN score=score+ 

3 

1260 IF al = l THEN GOTO 1290 
1270 IF a2=1 THEN GOTO 4100 
1280 IF a3 = l THEN GOTO 3120 
1290 GOSUB 4860:PRINT "Vous avez u 
n petit budgetjvous achetez1=4: 
GOSUB 4770 1 PRINT " -un compact-dis 
c":GOSUB 4770:PRINT " -un abonneme 
nt a Canal Plus":GOSUB 4770:PRINT 
" -un magnétoscope":GOSUB 4770:PRI 
NT " -un téléphoné pour votre voit 
ure" 

1300 GOSUB 4770:PRINT " -un radio- 

reveil-tele":GOSUB 4730 

1310 IF arg$="a" THEN score=score+ 

4 

1320 IF arg*="b" THEN score=score+ 
1 

1330 IF argl="c" THEN score=score+ 
3 

1340 IF arg$="d" THEN score=score+ 
2 

1350 IF a 1 = 1 THEN GOTO 1450 
1360 IF a2=l THEN GOTO 1450 
1370 IF a3=l THEN GOTO 1450 
1380 GOSUB 4860:PRINT "Avec 200 fr 
anc5,vous vous offrez:": 1=4:GOSUB 
4770:PRINT " -une péripatéticienne 
":GOSUB 4770:PRINT " -un aphrodisi 
aque":GOSUB 4770:PRINT " -des jume 
lies infrarouges":GOSUB 4770:PRINT 
" -un fouet au cas ou ..." 

1390 GOSUB 4770:PRINT " -une drôle 


de poupee":GOSUB 4730 

[11273 1400 IF arg$="a" THEN score=score+ 

2 

[15163 1410 IF arg$="b" THEN score=score+ 

3 

[ 17193 1420 IF a r g $ = " c " THEN score = score + 

1 

[7803 1430 IF arg*="d" THEN score=score+ 

[15363 4 

[7723 1440 IF a2=l THEN GOTO 620 

[ 146343 1450 GOSUB 4860 : PR I NT "Votre anima 

1 préféré:":1=4:G0SUB 4770:PRINT " 
-1'ours":G0SUB 4770:PRINT " -le d 


auphin”:GOSUB 4770:PRINT " -le lap 
in“:GOSUB 4770:PRINT H -la panther 
e noire":GOSUB 4770:PRINT " -le ch 
ien":GOSUB 4730 

[15243 1460 IF arg$="a" THEN score=score+ 


[11333 

[15183 

[17283 

[7803 

[14473 

[5653 

[204113 


[35113 

[15383 

[11243 

[15163 

[17293 

[7483 

[15523 

[7883 

[180233 


[34493 

[15243 

[11303 

[15183 

[17193 

[13293 

(143753 


[15243 
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LISTING 


1 

2210 IF arg$="b" THEN score=score+ 
3 

2220 IF arg*=" 

2 

2230 IF arg$="d" THEN score=score+ 


C11303 

THEN score=5core+ E15173 

C17193 


2240 IF a 1-1 THEN GOTO 2270 E7923 

2250 IF a2 = 1 THEN GOTO 2270 C15313 

2260 IF a3=l THEN GOTO 4620 16673 

2270 GOSUB 4860:PRINT “Vous etes u [163903 
n oiseau:": 1=4:GOSUB 4770:PRINT " 

-un pigeon" îGOSUB 4770iPRINT 11 -un 
aigle 11 :GOSUB 4770:PRINT " -une ci 
gogne":GOSUB 4770: PRI NT " -un cana 
ri GOSUB 4770 * PR I NT " -un perroqu 
et":GOSUB 4730 

2280 IF arg*="a" THEN score=score+ [15253 
1 

2290 IF arg$="b" THEN score=score+ [11333 

4 

2300 IF arg$="c" THEN score=score+ [15173 
2 

2310 IF arg$="d" THEN score=score+ [17283 
3 

2320 IF aegt="e" THEN score=score+ [15823 

5 

2330 IF a 1 -1 THEN GOTO 2360 [7903 

2340 IF a2=l THEN GOTO 2360 [13453 

2350 IF a3=1 THEN GOTO 2360 [7343 

2360 GOSUB 4860:PRINT “Vous etes d C154583 
ans votre litjvous etes dans:":l=4 
:GOSUB 4770:PRINT " -des draps de 
soie":GOSUB 4770:PRINT 
"jGOSUB 4770iPRINT 
:GOSUB 4770:PRINT 
SUB 4770:PRINT " 
vertures":GOSUB 4 


-un duvet 
-une couette - 
" -la paille": GO 
-des draps et cou 


2370 

2 

IF 

arg*="a" 

THEN 

score=score+ 

[15243 

2380 

1 

2390 

il 

IF 

arg$="b" 

THEN 

score=score+ 

[11243 

IF 

arg$="c" 

THEN 

scare=5core+ 

[15153 

4 

2400 

IF 

arg$="d" 

THEN 

5core=score+ 

[17283 

2410 

2420 

2430 

2440 

IF al=l THEN GOTO 
IF a2=l THEN GOTO 
IF a3=l THEN GOTO 
GOSUB 4860:PRINT 

2440 

3860 

3860 

"Vous prêter 

[7743 

[13353 

[5633 

[166463 


ez:": 1=4:GOSUB 4770:PRINT " -un ve 
lo sans sel le":GOSUB 4770:PRINT " 
-un repas sans sel":G0SUB 4770:PRI 
NT " -un repas sans elle":GQSU8 47 
70:PRINT " -un oiseau sans ailes": 
GOSUB 4770:PRINT " -un discours sa 
ns zele" 1 GOSUB 47 


1980 IF arg$="b" THEN score=score+ [11333 
4 

1990 IF arg$="c" THEN score=score+ [15173 
2 

2000 IF arg$="d" THEN score=score+ [17223 
1 

2010 IF a 1 = 1 THEN GOTO 2110 [7363 


2020 IF a2=1 THEN GOTO 4490 
2030 IF a3=l THEN GOTO 3430 
2040 GOSUB 4860: PRINT "Votre posit 
ion favorite:":1=4:G0SUB 4770:PRIN 
T " -le tire-bouchon":GOSUB 4770:P 
RINT " -la selle de cheval":GOSUB 
4770:PRINT " -la brouette chinoise 
":GOSUB 4770iPRINT " -le 96 belge" 
:GOSUB 4770:PRINT “ -la porte dego 
ndee":G0SUB 4730 


IF 


IF 

IF 

IF 

IF 

IF 


arg$="a" 
arg$="b" 
arg$="c" 
arg$="d" 


THEN score=score+ 


THEN score=score+ 


THEN score=score+ 


THEN score=scorB+ 


a2= 1 
a3= 1 


THEN 

THEN 


GOTO 

GOTO 


790 

790 


IF 

IF 

IF 

IF 

IF 

IF 


a r g ♦ = " a “ 

arg$="b" 

a r g $ = " c " 

arg*="d" 

a 1-1 THEN 
a2 a 1 THEN 
a3=l THEN 


[14253 

[8073 

[161863 


THEN score=score+ 


2050 
4 

2060 
2 

2070 
3 

2080 
1 

2090 
2100 

2110 GOSUB 4860:PRINT "Prêterez vo 
us et r e: 11 :1 =4 : GOSUB 4770:PRINT " - 
un gant de toilette“:G0SUB 4770:PR 
INT " -une goutte d'eau“:GOSUB 477 
0:PRINT " -un bidet":GOSUB 4770:PR 
INT " -de la dentel 1e":GOSUB 4770: 
PRINT " -une brosse a dents":GOSUB 
4730 
2120 IF 

3 

2130 

4 

2140 
2 

2150 
1 

2160 IF a l s 1 THEN GOTO 2190 
2170 IF a2=l THEN GOTO 2190 
2180 IF a3=l THEN GOTO 2190 
2190 GOSUB 4860:PRINT "Sur la plag 
e,votre situation ideale:": 1=4:GOS 
UB 4770:PRINT " -une serviette": GO 
SUB 4770:PRINT " -de l'huile solai 
re“:G0SUB 4770 : PR I NT " -un poisson 
":GOSUB 4770:PRINT " -un grain de 
sable":GOSUB 4770:PRINT " -un coqu 
i11 âge":GOSUB 473 

2200 IF arg$="a" THEN score=score+ 


[15383 

[11273 

[15163 

[17223 

[13673 

[5973 

[168933 


THEN score=score+ 


THEN score=score+ 


THEN score=score+ 


[15233 

[11333 

[15173 

[17223 

[7203 

[15713 

[8083 

[197803 


[15253 


46 





2450 

IF 

arg$="a" 

THEN 5core=score+ 

[15381 

if f1era 

3 fois" 

!GOSUB 

4770:PRINT " 


4 




-Ca 

5 ' 

en va 

et 

ca revient" îGOSUB 


2460 

IF 

ar g$= "b" 

THEN score=5Core+ 

[11241 

4770! 

PRINT " 

-Ben(a ord 'IHur” 


1 




2720 

GOSUB 4770 ! PR I NT 

" -Autant en 

[68651 

2470 

IF 

arg*="c" 

THEN score=score+ 

[15171 

arpentent les 

vôtres" 

iGOSUB 4730 ■ 


2 




2730 

IF 

ar gl= 

"a 

" THEN 

score=5Core+ 

[15373 

2480 

IF 

a r g $ = " d " 

THEN 5Core=score+ 

[17281 

5 







3 




2740 

IF 

ar g*= 

"b 

" THEN 

5core=score+ 

[11333 

2490 

IF 

a 1 = 1 THEN 

GOTO 2620 

[6901 

4 







2500 

IF 

a 2=1 THEN 

GOTO 2620 

[14233 

2750 

IF 

ar g$= 

”c 

" THEN 

score=score+ 

[15183 

2510 

IF 

a3=1 THEN 

GOTO 2620 

[7781 

1 







2520 

GOSUB 4860iPRINT "Vous aimez 

[123261 

2760 

IF 

ar g$= 

"d 

" THEN 

score=score+ 

[17283 

un grain 

de beauteî"! 1=4!GOSUB 477 


3 







0:PRINT 

" -sur une aile du nez"!GQ 


2770 

IF 

ar gl= 

"e 

" THEN 

score=5core+ 

[22463 

SUB 

4770 

iPR INT " 

-au dessus de la 


2 








levre superieure"iGOSUB 4770 îPRINT 
" -au bas des reins" 


2530 

GOSUB 4770iPRINT 

" -entre les 

[58233 

fesses 1 

" :GOSUB 4770 ! PR INT " -sur u 


ne fossette":GOSUB 4730 


2540 

1 

2550 

A 

IF 

a r g $ = " a " 

THEN 

score=score+ 

[15251 

IF 

a r g $ = " b " 

THEN 

score=score+ 

[11331 

*1 

2560 

n 

IF 

a r g $ = " c " 

THEN 

5core=score+ 

[15173 

j- 

2570 

C 

IF 

a r g $ = " d " 

THEN 

score=score+ 

[17181 

w 

2580 

7 

IF 

a r g $ = " e " 

THEN 

score=score+ 

[22491 

O 

2590 

IF 

a2=l THEN 

GOTO 

960 

[14211 

2600 

IF 

a2=1 THEN 

GOTO 

960 

[14213 

2610 

IF 

a3=l THEN 

GOTO 

960 

[5953 

2620 

GOSUB 4860î PRINT 

"Votre music 

[141063 

ien préféré! "ilMiGÜSUB 4770; PRINT 



■ -Mozart"i GOSUB 4770iPRINT " -Ga 
insbourg"iGOSUB 4770tPRINT " -Dura 
n Dur an " : GOSUB 4770iPRINT " -Armst 
rong"s GOSUB 4770 îPRINT " -Edern Al 
lier"!GOSUB 4730 

2630 IF arg*="a" THEN score=score+ C15233 

3 

2640 IF arg$="b" THEN score=score+ [11331 

4 

2650 IF a r g $ = "c" THEN score=score+ [15181 
1 

2660 IF arg$="d" THEN score=score+ C 17291 
2 

2670 IF a r g $ = "e" THEN score=score+ E22551 

5 

2680 IF a 1 — 1 THEN GOTO 4210 [7721 

2690 IF a2 = l THEN GOTO 3740 C 14073 

2700 IF a3 = î THEN GOTO 3740 [6351 

2710 GOSUB 4860:PRINT “Votre film [169711 
préférés "!l=4:G0SUB 4770 s PR I NT " - 
2001:l'eau pissee de 1 'espece"!GOS 
UB 4770:PRINT " -l'arriere-train s 


2780 IF a2=1 THEN GOTO 1130 
2790 IF a2=1 THEN GOTO 1130 
2800 IF a3=1 THEN GOTO 1130 
2810 GOSUB 4860 ! PR I NT “Votre crite 
re prépondérant chez un homme"!l=4 
!GOSUB 4770;PRINT " -les mains u !GO 
SUB 4770iPRINT " -pi 1osite":GOSUB 
4770;PRINT " -yeux"iGOSUB 4770: PRI 
NT ■ -taille"!GOSUB 4770:PRINT " - 
musculature"iGOSUB 4730 


[15441 

[15441 

[7801 

[198921 


2820 

1. 

2830 

O 

IF 

ar g#= 

"a" 

THEN 

score=5Core+ 

[15251 

IF 

argf = 

"b" 

THEN 

score=score+ 

[11271 

L 

2840 

B* 

IF 

arg$ = 

Il £ Il 

THEN 

5core=score+ 

[15141 

ü 

2850 

3 

2860 

A 

IF 

arg$ = 

"d" 

THEN 

5core=score+ 

[17283 

IF 

arg$= 

n e u 

THEN 

score=score+ 

[22521 

H 

2870 

IF 

a3=l 

THEN 

GOTO 

620 

[5993 

2880 

GOSUB 4870î PR INT 

“Au sigle ’T 

[167153 


ouche pas a mon pote',vous prefe 
rez ! 11 ! 1 = 4 : GOSUB 4770: PR I NT 11 -touc 
he pas a mon buf'îGOSUB 4770;PRINT 
B -touche pas a ma flute"îGOSUB 4 
770iPRINT " -te mouche pas dans mo 
n fut" 

2890 GOSUB 4770îPRINT " -louche pa [59611 
s sur mon luth"iGOSUB 4770;PRINT " 

-te couche pas sur ma jupe":GOSUB 
4730 

2900 IF a r g $ = "a " THEN score=score + 


2910 IF arg$="b" THEN score=score+ 

4 

2920 IF a r g $ = " c 11 THEN score = score + 

3 

2930 IF arg$="d" THEN score=score+ 

1 

2940 IF a2=1 THEN GOTO 1700 [13341 

2950 IF a3=1 THEN GOTO 1700 [5623 


[15241 

[11333 

[15161 

[17221 
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LISTING 


2960 GOSUB 4B60sPRINT "Au lit,vous [166133 
aimez :"s 1=4iGOSUB 4770sPRINT " -u 
n ciel etoile"»GOSUB 4770* PRINT " 

-une musique planante"iGOSUB 4770: 

PRINT " -le bruit de la mer":G0SUB 
4770:PRINT " -un encens":GOSUB 47 
70:PRINT " -le dernier Goncourt":G 
OSUB 4730 


2970 

3 

2980 

5 

2990 

4 

3000 

2 

3010 

1 

3020 

3030 

3040 

3050 

sme 


IF 

IF 

IF 

IF 

IF 


arg$="a" 
a r g $ = " b " 
arg$="c 11 
arg*="d" 
arg$="e" 


THEN score=score+ C15233 
THEN score=score+ [11363 
THEN score-score+ 


THEN score=score+ 

v y ^ 

THEN score=5core 


[15153 

[17293 

\SV) 

33 


IF al*l THEN GOTO 4930 

IF a2=l THEN GOTO 3050 

IF a3=l THEN GOTO 3510 

GOSUB 4860iPRINT "Votre 
le plus ose:":1=4:G0SUB 4770 1 P 


+ [224 

[6853 

[13593 

[8153 

fanta [139413 


-etre enva [75173 


RINT " -sortir avec une presentatr 
ice":GOSUB 4770* PRINT " -etre invi 
sible“:GOSUB 4770:PRINT " -noyer 1 
nana sous des baisers" 

3060 GOSUB 4770:PRINT 
hi par une poitri ne":GOSUB 4770:PR 
INT " -se faire caresser":GOSUB 47 
30 

3070 IF a r g $ = "a" 

3 

3080 IF arg$="b" THEN 
2 

3090 IF arg$="c" THEN 

4 

3100 IF arg$="d" THEN 
1 

3110 IF a2=l THEN GOTO 3630 
3120 GOSUB 4860:PRINT "Votre fanta 
sme de demoisel 1e:": 1=4:GOSUB 4770 
:PRINT " -avoir une idylle avec qu 
asimodo":GOSUB 4770:PRINT " -sorti 
r avec le pape":GOSUB 4770:PRINT ■ 
-etre un homme":GQSUB 4770:PRINT 
" -prendre sa douche a poil" 


THEN score=score+ 


score=score+ 


score=score+ 


score=5core+ 


[15233 

[11273 

[15153 

[17223 

[14053 

[184493 


3180 IF arg$="e" THEN score=score+ [22553 
5 

3190 IF a3=l THEN GOTO 1290 [6923 

3200 GOSUB 4860:PRINT "Votre sous- [160313 
vetement préféré au 1it: " : 1 = 4:GOSU 
B 4770 : PR I NT “ -calecon”:GOSUB 477 
0:PRINT " -lunettes":GOSUB 4770:PR 
INT " -chaussettes":GOSUB 4770:PRI 
NT " -gants":GOSUB 4770:PRINT " -j 
arretiere":GOSUB 4730 


IF 


IF 

IF 

IF 

IF 


a r g $ = " a " 
arg$="b" 
a r g $ = " c 11 
arg$="d" 
arg$="e" 


THEN score=score+ 


THEN 

THEN 

THEN 

THEN 


score=5core+ 


score=score+ 


score=score+ 


score=score+ 


3210 

3 

3220 

4 

3230 
2 

3240 

5 

3250 
1 

3260 IF a3=1 THEN GOTO 1530 
3270 GOSUB 4860:PRINT "Votre mutil 
ation preferee:": 1=4:GOSUB 4770:PR 
INT " -un ongle incarne":GOSUB 477 
0:PRINT " -une dent cariee":GOSUB 
4770:PRINT " -une oreille de choux 
":GOSUB 4770:PRINT" -un point noir 
":GOSUB 4770:PRINT " -un oeil de v 
erre":GOSUB 4730 


[15233 

[11333 

[15173 

[17183 

[22433 

[5723 

[177673 


3280 

2 

3290 

1 

3300 


ü 

3310 
4 

332a 

3330 IF 
3340 IF 


IF 

IF 

IF 

IF 

IF 


arg$="a" THEN score=score+ [15243 
argf="b" THEN score=score+ [11243 
arg*="c" THEN score=score+ [15143 
argf="d" THEN score=score+ [17193 
THEN 5Core=score+ [22493 


arg$="e" 

^ïTh\ 

a2=l THEN GOTO 4930 
a3=1 THEN GOTO 4930 


3350 GOSUB 4860:PRINT "Pour vous e 
veiller a l'amour,vous prefe rezi" 
:1=4:G0SUB 4770:PRINT ” -caresses 
dans le dos":G0SUB 4770:PRINT " -s 
ouffle dans le cou":G0SUB 4770:PRI 
NT " -massage du nombri1":GOSUB 47 


[15523 

[7883 

[184183 


3130 
nui t 

GOSUB 4770:PRINT 
avec Gainsbard" 

“ -passer la 
:GOSUB 4730 

[52403 

70:PRINT " -mordi11ement de l'orei 
lie" 


3140 

3 

IF 

a r g f “ " a " 

THEN 

score=score+ 

[15233 

3360 GOSUB 4770:PRINT " -baisers s 
ur la bouche":GOSUB 4730 

[53553 

3150 

n 

IF 

arg$="b" 

THEN 

score=score+ 

[11273 

3370 IF argl="a" THEN score=score+ 

A 

[15383 

L 

3160 

A 

IF 

arg$ = "c " 

THEN 

score=scDre+ 

[15153 

n 

3380 IF argl="b" THEN score=score+ 

•y 

[11303 

3170 

IF 

arg*="d" 

THEN 

score=score+ 

[17223 

w 

3390 IF argl="c" THEN score=score+ 

[15173 


48 






3400 IF arg$="d" THEN score=score+ [1718] 

5 

3410 IF arg$="e" THEN score=score+ [2243] 

1 

3420 IF a3=l THEN GOTO 1870 [673] 

3430 GOSUB 4860:PRINT "Vous avez 2 [17171] 
00 francsjvous vous payez :": 1=4 : GO 
SUE 4770s PRINT " -le Brésil au boi 
s de B...":GOSUB 4770s PRINT " -1 d 
rôle de poupee"sGOSUB 4770s PR INT " 

-des habits coquins"sGOSUB 4770:P 
RINT " -1 annonce-sexe dans un heb 
do" 

3440 GOSUB 4770sPRINT " -1 methûde [4759] 
Assimil"sGOSUB 4730 


3450 

A 

IF 

a r g $ = " a " 

THEN 

score=score+ 

[1538] 

3460 

C 

IF 

argl="b" 

THEN 

score=score+ 

[1136] 

3470 

9 

IF 

argf="c" 

THEN 

score=5C0re+ 

[1517] 

L 

3480 

7 

IF 

a r g $ = " d " 

THEN 

score=5Core+ 

[1728] 

0 

3490 

1 

3500 

3510 

IF 

arg$="e" 

THEN 

score=5Core+ 

[2243] 

IF a3=1 THEN GOTO 
GOSUB 4840s PRINT 

2110 

"Dans vos ra 

[568] 

[151621 


pports sado-maso,vous utili- sezs" 
s 1=4 s GOSUB 4790:PRINT “ -le fouet" 

:GOSUB 4790:PRINT " -la cigarette" 
s GOSUB 4790s PRINT " -les chaines": 

GOSUB 4790s PRINT " -le collier de 
chien"i GOSUB 4790:PRINT " -un bala 
i " 

3520 GOSUB 4790sPRINT " -un cutter [10358] 
"s GOSUB 4790:PRINT " -de l'acide s 


ulfurique": GOSUB 
plume": GOSUB 4800 
3530 IF a r g $ = "a" 

4790: 

THEN 

PRINT "• -la 

score=score+ 

[1538] 

3540 

e* 

IF 

argf="b" 

THEN 

5core=5core+ 

[1136] 

J 

3550 

1 

3560 

9 

IF 

a r g t = " c " 

THEN 

score=5Core+ 

[1518] 

IF 

a r g $ = " d " 

THEN 

score=score+ 

[1729] 

L 

3570 

T 

IF 

a r g $ = " e " 

THEN 

score=score+ 

[2249] 

3580 

7 

IF 

a r g $ = " f " 

THEN 

score=score+ 

[2146] 

t 

3590 

8 

3600 

L 

IF 

arg$="g" 

THEN 

score=score+ 

[1840] 

IF 

a r g f = " h " 

THEN 

score=5core+ 

[1069] 

O 

3610 

IF 

a2=1 THEN 

GOTO 

3270 

[1347] 

3620 

IF 

a3=1 THEN 

GOTO 

3270 

[759] 

3630 

GOSUB 4840:PRINT 

"Votre sou s — 

[18933] 


vetement préféré au 1it:"s 1=4sGOSU 
B 4790s PRINT " -col 1ant":GOSUB 479 
OsPRINT " -bas"s GOSUB 4790:PRINT " 
-jarretelles":GOSUB 4790:PRINT " 
-chaussettes":GOSUB 4790:PRINT " - 
soutien-gorge"sGOSUB 4790:PRINT " 
-string" 


3640 GOSUB 4790:PRINT " -manteau d 
e fourrure" s GOSUB 4790sPRINT " -co 
mbinaison de pl ongee" :GOSUB 4800 

[6944] 

3650 

9 

IF 

arg$=*a" 

THEN 

score = scor e + 

[1524] 

L 

3660 

7 

IF 

argi="b" 

THEN 

score=score+ 

[1130] 

O 

3670 

7 

IF 

arg$ = "c " 

THEN 

score=score+ 

[1512] 

3680 

1 

3690 

A 

IF 

a r g $=" d " 

THEN 

score=5core+ 

[1722] 

IF 

a r g 1 = " e " 

THEN 

score=5core+ 

[2252] 

*1 

3700 

L 

IF 

arg$="f “ 

THEN 

score=score+ 

[2143] 

O 

3710 

8 

3720 

e; 

IF 

arg$="g" 

THEN 

score=score+ 

[1840] 

IF 

arg$="h" 

THEN 

score=5core+ 

[1062] 

J 

3730 

IF 

a2=l THEN GOTO 

3510 

[1579] 

3740 

GOSUB 4840: 

PRINT 

“Le cri de v 

[187383 


otre conjoint au 1it: ": 1=4sGOSUB 4 
790:PRINT “ -long et 1angoureux " s G 
OSUB 4790:PRINT * -strident et sac 
cade":GOSUB 4790:PRINT " -hysteriq 
ue":GOSUB 4790 : PR I NT " -raleur":G0 
SUB 4790s PRINT " -inexistant" 

3750 GOSUB 4790:PRINT " -jovial":G [8035] 
OSUB 4790sPRINT " -a la 'Love on t 
he beat'"sGOSUB 4790:PRINT " -hitl 
erien " s GOSUB 4800 


3760 

8 

IF 

a r g $ = " a " 

THEN 

score=5core+ 

[1550] 

3770 

L 

IF 

arg$="b" 

THEN 

score=5core+ 

[1139] 

O 

3780 

A 

IF 

arg$="c" 

THEN 

score=score+ 

[1515] 

3790 

7 

IF 

arg« = "d". 

THEN 

score=score+ 

[1728] 

w 

3800 

9 

IF 

a r g $ = " e " 

THEN 

score=5Core+ 

[22463 

JL 

3810 

7 

IF 

a r g i = " f “ 

THEN 

score=score+ 

[21463 

r 

3820 

IF 

a r g $ = " g " 

THEN 

score=score+ 

[18153 

D 

3830 

l 

3840 

3850 

3860 

IF 

a r g $ = " h " 

THEN 

score=5Core+ 

[10663 

IF a2=l THEN GOTO 
IF a3=1 THEN GOTO 
GOSUB 4840:PRINT 

4210 

4210 

"Votre lit n 

[1449] 

[6853 

[182503 
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LISTING 


uptial préféré:":1=4:G0SUB 4790:PR 
INT “ -avec un mirroir au plafond" 

:GOSUB 4790:PRINT " -un train de b 
anlieue":GOSUB 4790:PRINT " -une b 
anquette de voiture":GOSUB 4790:PR 
INT " -le cimetiere du Pere-Lachai 
se" 

3870 GOSUB 4790:PRINT " -une chamb [14995] 
re d'hôtel”:GOSUB 4790:PRINT " -un 
chiotte public":GOSUB 4790:PRINT 
" -une table de cuisine”:GOSUB 479 
0:PRINT " -un champs de ble":G0SUB 
4800 

3880 IF a r g $=" 5 " THEN score=score+ £5213 
6 

3890 IF arg$="b" THEN score=score+ £1133] 

4 

3900 IF a r g t = " c " THEN score=score+ £1517] 

2 

3910 IF arg$="d"- THEN score=score+ £1747] 

8 

3920 IF arg$="e" THEN score=5core+ £22433 
1 

3930 IF arg$="f" THEN score=score+ £21343 

3 

3940 IF arg$="g" THEN score=score+ £18153 

5 

3950 IF arg$="h" THEN score=score+ £10683 
7 

3960 IF a2=l THEN GOTO 2440 £15693 

3970 IF a2=l THEN GOTO 2440 £15693 

3980 IF a3=l THEN GOTO 2440 £7503 

3990 GOSUB 4840:PRINT "Votre idéal £197403 
feminint": 1=4:GOSUB 47901PRINT " 

-les blondes incendiaires":GOSUB 4 
790:PRINT ” -les brunes sauvages": 

GOSUB 4790:PRINT " -les midinettes 
" :GOSUB 4790 : PR I NT " -les vamp's": 

GOSUB 4790: PRINT " -les bonnes soe 
urs" 

4000 GOSUB 4790:PRINT " -les saint £94823 
es-nitouches":G0SUB 4790:PRINT " - 
les intouchables":GOSUB 4790:PRINT 


H _ ‘ 

4010 

1 

4020 

les 

IF 

nymphomanes":GOSUB 4800 
arg$="a" THEN score=score+ 

£15253 

IF 

arg$="b" 

THEN 

5Core=5core+ 

£11303 

6 

4030 

IF 

a r g i = " c " 

THEN 

score=score+ 

£15153 

4 

4040 

8 

4050 

IF 

arg$="d" 

THEN 

5core=score+ 

£17473 

IF 

arg$="e" 

THEN 

score=score+ 

£22583 

O 

4060 

IF 

arg$="f " 

THEN 

score=scDre+ 

£21463 

/ 

4070 

IF 

arq$="g" 

THEN 

score=5core+ 

118153 


4080 IF argl="h" THEN score=score+ £10733 
2 

4090 IF a2=l THEN GOTO 1870 £14533 

4100 GOSUB 4840: PRINT "Votre crite £ 172233 
re principal chez une femme:":l=4: 

GOSUB 4790: PR I NT " -les yeu>:":G0SU 
B 4790:PR INT " -la poitrine":GOSUB 
4790:PRINT " -le c..":G0SUB 4790: 

PRINT " -les jambes":GOSUB 4790:PR 
INT " -la bouche" :GOSUB 4790:PRINT 
" -le sourire" 

4110 GOSUB 4790:PRINT " -la pilosi £46433 
te":GOSUB 4790:PRINT “ -les cheveu 
x":GOSUB 4800 


4120 

n 

1F 

a r g $ = " a “ 

THEN 

score=score+ 

£15243 

L 

4130 

CT 

IF 

argl="b" 

THEN 

score=score+ 

£11363 

J 

4140 

A 

IF 

a r g $ = " c " 

THEN 

score=score+ 

£15153 

4 

4150 

7 

IF 

arg$="d" 

THEN 

score=score+ 

£17243 

4160 

IF 

argl="e" 

THEN 

score=5core+ 

£22583 

6 

4170 

8 

4180 

T 

IF 

arg$="f" 

THEN 

score=score+ 

£21573 

IF 

a r g $ = " g " 

THEN 

score=5core+ 

£18253 

«J 

4190 

IF 

a r g $=" h " 

THEN 

score=5core+ 

£13253 


1 : GOTO 4210 

4200 IF a2= 1 THEN GOTO 1290 £14563 

4210 GOSUB 4840 : PR I NT "Votre conjo £ 187723 
int idéal:": 1=4:GOSUB 4790:PRINT * 

-Nina Hagen":GOSUB 4790:PRINT " - 
Isabelle Adjani ":G0SUB 4790:PRINT 
" -Catherine Deneuve":GOSUB 4790:P 
RINT “ -Lech Walesa":GOSUB 4790:PR 
INT “ -J.P Belmondo" 

4220 GOSUB 4790:PRINT " -Yves Mont £124903 
and":GOSUB 4790: PRINT " -Gainsbour 
g":GOSUB 4790:PRINT " -Simone Sign 


oret" 

:GOSUB 4800 




4230 

A 

IF 

arg$ 3 "a" 

THEN 

score=score+ 

£15383 

4 

4240 

1 

4250 

T 

IF 

arg$="b" 

THEN 

score=score+ 

£11243 

IF 

arg$="c" 

THEN 

score=score+ 

£15163 

O 

4260 

8 

4270 

n 

IF 

arg*="d" 

THEN 

5core=5core+ 

£17473 

IF 

arg$="e" 

THEN 

score=score+ 

£22463 

l 

4280 

7 

IF 

a r g $ = " f " 

THEN 

score=score+ 

£21463 

/ 

4290 

S 

IF 

a r g $ = " g " 

THEN 

score=score+ 

£18153 
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4300 IF a r g $ = " h " THEN scor e=scor e + [10691 
6 

4310 IF a 1 = 1 THEN GOTO 4340 [762] 

4320 IF a2= 1 THEN GOTO 4340 [1399] 

4330 IF a3=1 THEN GOTO 4340 [722] 

4340 e=0:GOSUB 4840iPRINT "Votre h [13869] 
omme politique pour 1988: " : 1=2:GOS 
UB 4900: PRINT 11 -Le Pen"«GOSUB 490 
OiPRINT " -Fabius":GOSUB 4900:PRIN 
T " -Rocard"«GOSUB 4900:PRINT " -K 
rivine":GOSUB 4900:PRINT " -Marcha 
is":GOSUB 4900:PRINT " -Chirac" 


4350 GOSUB 4900: 
SUB 4900 : PR I NT " 
880 

PRINT " -Barre“: GO 
-Coluche"«GOSUB 4 

[3462] 

4360 IF a r b $ ="a" 
score=score+3 

AND brb$="f" 

THEN 

[33203 

4370 IF a r b1 = "a" 
score=5core+2 

AND brbf= “g" 

THEN 

[2164] 

4380 IF a r b $ ="b" 
score=score+4 

AND b r b $ = " T" 

THEN 

[2444] 

4390 IF arb*="b" 
score=score+7 

AND brbl="g" 

THEN 

[1772] 

4400 IF a r b $ ="b " 
score=score+6 

AND brbl="h" 

THEN 

[2055] 

4410 IF arb$="c" 
score=score+5 

AND brfri="f" 

THEN 

[1875] 

4420 IF a r b $ ="c" 
score=score+10 

AND brbl="g" 

THEN 

[2119] 

4430 IF a r b $ = "c" 
score=score+8 

AND b r b $ ="h " 

THEN 

[2939] 

4440 IF arb$="d" 
score=score+1 

AND brb$="e" 

THEN 

[1773] 

4450 IF a r b $ = " d " AND brb$ = "h" 
score=score+2 

4460 IF a 1 = 1 THEN GOTO 2960 
4470 IF a2= 1 THEN GOTO 2960 
4480 IF a3=1 THEN GOTO 2960 

THEN 

[10153 

[7823 

C1339] 

[6943 

4490 e=0:GOSUB 4840:PRINT "Votre t 
ete preteree:": 1=2:GOSUB 4900:PRIN 

[166343 


T " -chauve":GOSUB 4900:PRINT " - 
brune":GOSUB 4900:PRINT " -blonde" 
iGOSUB 4900 î PR INT " -rousse"iGOSUB 
4900:PRINT " -yeux verts“:GOSUB 4 
900:PRINT ' -petit nez" 

4500 GOSUB 4900:PRINT " -bouche se [6053] 
nsuelle":GOSUB 4900:PRINT " -long 
cou":GOSUB 4880 

4510 IF a r b $ = " a " AND brb$="e" THEN [ 1845] 
score=score+14 

4520 IF ( a r b $ = "a " AND brb*="f"> OR [5634] 
<arb$="c" AND brb*="g"> THEN scor 
e=score+12 

4530 IF a r b < = " a " AND brbf = "g" THEN [2229] 
score=score+15 

4540 IF <arb#="a" AND brbf="h") OR [5331] 
(arb$="c" AND brb*="h"> THEN scor 


e=score+5 

4550 IF (arbf="b" AND brb$="e") OR 
(ar bl = "b " AND brb*="e") OR <arb*= 
"c" AND b r b $ = " e " ) THEN score=score 
+ 10 

4560 IF arb*="b" AND brbf»"*" THEN 
score=score+4 

4570 IF (arb*="b“ AND brb*="h") OR 
<arb$=“d" AND brb*«"h") THEN scor 
e=score+l 

4580 IF (arb$="c" AND brb*="t") OR 
<arb*="d" AND brb*="e") THEN scor 
e*score+9 

4590 IF <arb*=“d" AND brb*="T"> OR 
(arbl="d" AND brb$="g"> THEN scor 
e=score+8 
4600 1=2 

4610 IF a2=1 THEN GOTO 2110 
4620 e=0:GOSUB 4840:PRINT "Votre t 
ete preferee:": 1=2:GOSUB 4900:PRIN 
T " -chatain":GOSUB 4900:PRINT " - 
brun":GOSUB 4900:PRINT " -blond":G 
OSUB 4900:PRINT " -roux":G0SUB 490 
0:PRINT " -nez aqui1 in":GOSUB 4900 
: PR I NT " -yeux gris" 

4630 GOSUB 4900:PRINT" -menton pro 
nonce":GOSUB 4900:PRINT " -large f 
ront":GOSUB 4880 

4640 IF ( a r b $ = " a" AND brb* = "e") OR 
(arb*="c" AND brb*="F"> THEN scor 
e=score+10 

4650 IF a r b t ="a" AND brb$ = "f“ THEN 
score=score+l5 

4660 IF <arb$="a" AND brb*="g") OR 
< arb$= "c" AND brb*="g"> THEN scor 
e=score+12 

4670 IF <arb$="a" AND brb*="h") OR 
<arbl=“b" AND brb*=“g"> OR <arb*= 
"c" AND brbf="h“) THEN score=score 
+5 

4680 IF <arb*="b" AND brb$="e") OR 
<arb*="b" AND brb<="f") THEN scor 
e=score+3 

4690 IF (a r b t = " b" AND brb$ = "h") OR 
<arbf=“d" AND brbf="g") THEN scor 
e=score+l 

4700 IF a2=1 THEN GOTO 2270 
4710 IF a3=1 THEN GOTO 2270 
4720 END 

4730 LOCATE 7,7:PRINT "a":LOCATE 7 
, 10:PRINT "b":LOCATE 7,13s PR INT "c 
":LOCATE 7,16:PRINT “d":LOCATE 7,1 
9:PRINT "e":LOCATE 4,23:PRINT "Cho 
isissez l'une des solutions" 

4740 arg$=INKEYf 

4750 IF a r g I="a " OR argl="b" OR ar 
g* = "c" OR a r g ^ = " d" OR arg$ = "e" THE 


[5103] 


[2444] 

[5052] 


[3923] 


[4303] 


[183] 

(13311 

[16056] 


[6689] 

[2578] 

[3268] 

[2642] 

[5578] 


[3236] 


[5100] 


[1531] 
C688 ] 
[110] 
[96543 


[1084] 

[2532] 
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USflNG 


4360 CLS:INK 1,23:PEN 1iLOCATE 2,4 C25463 
sRETURN 

4070 CLS; INK 1,23:PEN 1:L0CATE 2,3 117253 
;RETURN 

4880 LOCATE 2,5:PRINT "a":LOCATE 2 C114373 
1,5s PR INT "e" :LOCATE 2,8 s PR I NT "b" 
sLOCATE 21 , B: PRINT "f " : LOCATE 2,11 
: PR I NT "c"s LOCATE 21,11s PRINT "g": 

LOCATE 2,14 s PRINT "d " ;LOCATE 21,14 
! PR I NT "h" 

4890 GOSUB 4780*.LQCATE 1,17:INPUT £96323 
"Choisissez une réponse par colonn 
e, et séparez vos 2 choix par une 
virgule" ;arb$,brb$:RETURN 
4900 1 = 1+3sIF 1 >14 THEN e = 1 s 1=5 [ 14943 

4910 IF e=1 THEN LOCATE 22,liRETUR £34033 
N 

4920 LOCATE 5,1:RETURN £9243 

4930 CLS:LOCATE 2,1 2» PR INT "Toutes £7321 3 
mes Telicitations," \ pr$:PRINT:PRI 
NT"Votre score est de:"jscore 
4940 POKE &A000, scores POKE «cA001 , q £19213 
we 

4950 CHAIN "test++",10 v £3343 


10 score=PEEK<S(A000):qwe = PEEK(!cA00 £ 17923 
1 ) 

30 ON qwe GOTO 40,380,740 £10013 

40 IF score<=25 THEN GOTO 90 £16153 

50 IF score<=50 AND score>25 THEN £19623 
GOTO 140 

60 IF score<=75 AND score>50 THEN £25093 
GOTO 180 

70 IF score<=100 AND score>75 THEN £17643 
GOTO 240 

80 IF score>=100 THEN GOTO 310 £21553 

90 CLS:LOCATE 5,2:PEN 2:PRINT “Bra £145813 
voHVous etes le surdoue de ce Tes 
t. " j SPC 138)}"A l'invitation au voy 
âge,vous repondez;"; SPC < 38 ) 5 "J'ai 
le mal de mer !... Appel a l'imagina 
— •» 

100 PRINT "tion:vous etes absent.P £127013 
recurseur d'une"; SPC <38);“société 
inerte,vous ne présentez pas les"; 

SPC<38)|"symptômes de l'originalit 
e.Conformiste " 

110 PRINT "jusqu'à la moelle,vous £131693 
suivez la fouie." 5 SPC<38>;"Si la m 
ode change...vous etes la pour la" 
jSPC(38)j"porter.Bref,a la fois mo 
uton de Parnuge " 

120 PRINT "et irresponsable,vous e £50933 
ngendrez la me-"iG0SUB 1020 


130 CLS:PEN 2:PRINT "diocrite.Et c £82183 
'est malheureusement une ";SPC<38 
);"race qui prolifere!":GOSUB 940 
140 CLS:PEN 2: PRINT "On ne peut pa £129863 
s dire que vous soyez sur- ";SPC(3 
8)|"active! Vous aimez tout ce qui 
est prati; SPC(38);"que et reposa 
nt.Des qu'on vous demande “ 

150 PRINT "votre avis,vous prônez £157483 
la logique faci 1 e" ; SPC(38);"et tou 
5 vos actes seront un pas de plus 
“|SPC(38);"vers 1 'embourgeoisement 
et 1'annihila- " 

160 PRINT "tion de tout effort(qu' £131063 
il soit physique " ; SPC<38)j"ou mor 
al).Vive les voyages organises et 
" jSPC(38); "les visites guideesICet 
te apathie est " 

170 PRINT "sans doute le revers d' £114763 
une activité pro-":G0SUB 1020:CLS 1 
PEN 2:PRINT"f essionnelle exténuant 
e..."|SPC(38)j"ALORS MENAGEZ VOS M 
ENINGES!! !":GQSUB 940 

180 CLS:PEN 2 s PR I NT "Le moins qu'o £150813 
n puisse dire,c'est que ";SPC(3 

8);"vous n'etes pas un original a 
l'etat pur "; SPC ( 38);"Eleve de l'an 
cienne ecDle,vous etes " 


N RETURN 

4760 GOTO 4740 £5013 

4770 3 =3 +3;LOCATE 7,1;RETURN £17403 

4780 INK 1,20;PEN IsLOCATE 1,21 1 PR £63763 
INT"Pour homologuer votre réponse 
, appuyez sur RETURN ou ENTER.";RE 
TURN 

4790 1=1+2:LOCATE 7,1:RETURN £14823 

4800 LOCATE 7,6:PRINT ”a*:L0CATE 7 C1 1269 3 
,8:PRINT "b":LOCATE 7,10:PRINT "c" 
sLOCATE 7,12iPRINT "d"sLOCATE 7,14 
1 PRINT "e":LOCATE 7,16:PRINT "f":L 
OCATE 7,18:PRINT "g“ 1 LOCATE 7,20:P 
RINT "h" :LOCATE 4,23:PRINT "Choisi 
ssez une des solutions" 

4810 arg*=INKEY* £10843 

4820 IF arg*="a" OR arg$="b" OR ar £42113 
g$="c" OR a r g $ = "d" OR argf="e" OR 
arg*="f" OR arg*="g" OR arg$="h" T 
HEN RETURN 

4830 GOTO 4810 £4483 

4840 CLS:INK 2,16:PEN 2:L0CATE 2,3 £19453 
: RETURN 

4850 CLS:GOSUB 4780:INK 2,19:PEN 2 £38263 
iLOCATE 2,4:RETURN 
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190 PRINT "classique a tous points [144853 
de vue.Mais vos "}SPC<38);"choix 
ne sont jamais dénués de sens et 
" 5 SPC<38)|"votre large expérience 
de la vie vous " 

200 PRINT "donne 1'étiquette du sa [142523 
ge qu'il faut " jSPC(38)i"consul 
ter quand une question reste inso- 
” * SPC < 38 >;"lubie.Vous serez toujou 
rs pris au se- " 

210 PRINT "rieux et votre passage C61053 
laissera des tra-":G0SUB 1020 

220 CLSiPEN 2 jPRINT "ces de respec C 138073 
t qu'aucun balai ne pourra ";SPC(3 
8 );"enlever.Mai s comme vous restez 
très at- SPC (38)$"tache aux val 
eurs traditionnelles qui 

230 PRINT "elles trouvent de moins [ 14427 3 
en moins d 'adep-“; SPC<38);"tes,1 a 
solitude risque de vous faire fa- 
" j SPC < 38))"ce.Alors sachez l'affro 
nter!"iG0SUB 940 

240 CLS:PEN 2:PRINT "Champagne,Por [139993 
sche,propriété dans 1 ' Oise, "; SPC<3 
8 );"vacances en Grece...La liste p 
ourrait "|SPC<38);"s'al 1onger lo 
ngtemps ainsi sans que vous" 

250 PRINT "vous sentiez dépaysé po [135653 
ur autant.Vous ";SPC<38) 5 "avez t 
rime dur pour en arriver la,mais 
";SPC(38);"vous savez maintenant s 
avourer les bon- " 

260 PRINT "nés choses.A la fois co [135603 
llectionneur et "|SPC(38);"etre r 
affine,vous donnez de vous l'image 
" \ SPC(38);"du bon vivant qui a su 
lâcher un peu la " 

270 PRINT "bride et s'accorder un [52623 

repos bien merite":G0SUB 1020 

280 CLS!PEN 2:PRINT “Votre compagn [162953 

ie est toujours agréable et";SPC<3 

8 );"nombreux sont les sujets ou vo 

us restez "; SPC(38) 5 "intarissable. 

Vous en rajoutez meme par- " 

290 PRINT "fois un peu,mais nul ne [125053 
saurait vous re-";SPC<38) 5 "proche 
r cette petite faiblesse.Bref,vous 
" 5 SPC(38);"etes un HEU-REÜX.Souhai 
tons pour vous " 

300 PRINT "que ce soit un état don C46223 
t Dn ne se lasse " ; SPC<38);"pas ra 
pidement!"!G0SUB 940 

310 CLS:PEN 2:PRINT "Alors la,Brav [133253 
o'Vous avez reuni toutes ";SPC<3 
8 );"les qualités que nous n’osions 
esperer "jSPC(38);"chez un etre 


humain.Vous etes d'une in- " 

320 PRINT "telligence nettement su 
perieure a la "; SPC(38) 5 "moyenn 
e,mais cela ne vous empeche pas 
" 5 SPC(38);"d 'etre d'une simplicité 
exemplaire.Le " 

330 PRINT "superflu ne vous intere 
sse pas;ceci-dit,“jSPC(38)i “vous a 
imez bouger et rire avec vos amis, 

11 ; SPC < 38 ) ; "et votre appétit de dec 
ouverte est hors " 

340 PRINT “du commun.En fait,si vo 
us etiez a marier":G0SUB 1020 
350 CLS:PEN 2iPRINT "la liste d'at 
tente serait plus longue ";SPC(3 
8 );"qu'un rouleau de papier hygien 
ique dans " ; SPC(38) 5 "1 es toilettes 
du TGV.D'ai 11eurs,je me 
360 PRINT "demande si vos réponses 
parfaites a ce SPC(38) 5 "Test n 
e vous ont pas ete données par un 
" 5 SPC(38); "de mes confrères AMSTRA 
D CPC 6128.Per- " 

370 PRINT "mettez-moi d'etre scept 
ique a ce su jet !":G0SUB 940 
380 IF score< =44 THEN GOTO 430 
390 IF score<=B 8 AND score>44 THEN 
GOTO 480 

400 IF score<=132 AND score >88 THE 
N GOTO 540 

410 IF score<=176 AND score>132 TH 
EN GOTO 600 

420 IF score>176 THEN GOTO 660 
430 CLS 1 PEN 2:PRINT“0h voila que 1 
e beau profil !Je n'ai ja- ";SPC(38 
);"mais vu ca de ma vie.Excusez mo 
i d'em- " 5 SPC (38 )5 "ployer ce fran 
cais élaboré.Toi (je te ";SPC(38 
);"tutDies car tu ne mérités pas 1 
e vou- " 

440 PRINT"voiement) y en a etre su 
berbement dans "; SPC(33);"1 a case 
des zéros.A part ce geste de va-" 
}SPC<38)}“et-vient qui te procure 
un peu de plai- " ; SPC<38);"sir , tu 
ne connais pas autre chose que la" 

450 PRINT"mediocrite.De 1'équipé d 
es lâches tu SPC(38) 5 "penses 

5ouvent:quel plaisir de se battre" 
; SPC < 38)i"a un contre dix...quand 
on est dans la ":G0SUB 1020 
460 CLSiPEN 2:PR INT"bande.Il n'y a 
meme pas une réponse a ";SPC<38 
);"peu près sensee dans toutes les 
inepties" 5 SPC 138); “ que tu as prop 
osees.Tu vois si j'avais ";SPC(38 


[150143 

[125253 

[42903 

C169043 

[99753 


[55293 

[16553 

[29783 

[38323 

[24143 

[17923 

[208393 


[195523 


[146213 


[194163 
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LISTING 


)j"la possibilité de me détruire,j 
e te tue-“ 

470 PRINT"rai en te sautant au vis [153041 
âge,pas pour “]SPC (33); "t 'embra 
sser mais pour te plomber un peu ” 

;SPC<38)}"la tete espece de corbea 
u volage! "iGOSUB 940 

4B0 CLSiPEN 2iPRINT"Le moins qu'on [141053 
puisse dire,c'est que ";SPC(38 
)j"vou 5 etes un cal culateur : sans t 
outefois "|SPC<3B>;"toucher le [on 
d de la nullité,vous vous “ 

490 PRINT H maintenez avec une apath [116713 
ie desarmante " }SPC <38>;"dans le 
compartiment du voyeur assiste. " 

I SPC(38);“Malgre votre penchant po 
ur la mollesse, " 

500 PRINT"vous etes un jouisseur.D [161973 
'apres vos cri- "; SPC(38);"teres,e 
sthetisme est synonyme d'amour de" 

; SPC < 38)j"1'ordinaire.Votre (des)e 
quilibre psychiJG0SUB 1020 
510 CLSiPEN 2:PRINT“que est malheu [198043 
reusement fonction des au-";SPC(38 
)j "très.En un mot,vous aimez tout 
ce qui " ; SPC(38) 5 "nous servirait 
a vous decriresVous ai mez* ; SPC (38 
);"les rasoirs jettables et une de 
mi-heure " 

520 PR INT "a Pigalle dans une rue d [128373 
esertesil ne ' " ; SPC (38) ; "doi t' pa 

s y avoir de traceslAlors un bon " 

5 SPC<38) 5 "consei1 ! ne me croisez pa 
s un soir au ras" 

530 PRINT"des murs...Votre dispari [91973 
tion passerait "}SPC(38> ,• "complet 
ement i napercue! " tG0SUB 940 
540 CLSiPEN 2:PR INT "Félicitât ions, [153743 
illustre inconnuïvous etes"{SPC<38 
) j "un as de la normalité.La moyenn 
e vous H 5 SPC(38>{"satisfait, et v 

ous etes peu enclin a la “;SPC<38) 
{"decouverte de votre entourage. Si 
vous " 

550 PRINT“restez sur la meme voie, [188543 
vous ne recolte - “ 5 SPC < 38) ;“rez que 
le fruit de vos semencesides * 

) SPC (38) j 11 f emmes relativement bana 
les ou banale- “5 SPC(38)j"ment re 
latives.'C'est dommage,car vous 
560 PRINT"meritez mi eux.L'amour du [94523 
nihilisme,c'est";SPC(38);"bien,ma 
is encore faut-il en tirer un ba-" 

:G0SUB 1020 

570 CLSîPEN 2 î PRINT"gage concret e [ 157853 
t uti 1 e.Heureusement,vos ";SPC<38 
);"rares sautes d'humeur sont la p 


reuve que SPC (38) ; "votre MOI exis 
te encore et qu'il ne veut"jSPC(38 
);"pas mourir avant d'avoir montre 
le bout " 

580 PRINT"de son nez.Souquez davan [211613 
tage dans votre ";SPC(38);"galere; 
elle aura moins l'air d'un sous- " 

; SPC(38);"marin! ! ! Du cran,mon vieu 
x,je decelefma- "5 SPC(38){"rin ,bie 
n sur) en vous un bon fond;alors " 

590 PRINT"!aissez le remonter a la [39083 
surface..."iGOSUB 940 

600 CLSiPEN 2:PRINT"Ah, voila enfin [159243 
quelqu'un que je peux ap-"jSPC<38 
);"precier a sa juste valeur» 0 n se 
nt en ";SPC(38) 5 "vous un esprit 
clair dans un corps sain."; SPC(38 
>; "J'ai honte a vous dire que j'ai 
me votre " 

610 PRINT"rigueur en totale opposi [177043 
tion avec votre “; SPC(38);"1iberte 
d'action et de pensee.Si j'étais" 

; SPC(38);"une femme,je m'offrirai 
sans hesitations "5 SPC(38);"corps e 
t ame dans vos bras d'homme.Votre" 

620 PRINT"torse et vos mains sont [102183 
solides et doux "; SPC(38);"en meme 
temps.La sensualité de votre EGO" 
iGOSUB 1020 

630 CLSiPEN 2iPRINT"doit vous etre [156373 
benefique dans un grand ”;SPC(38 
);"nombre de si tuâtions.Vous aimez 
plai san-" 5 SPC(38);"tez mais cepen 
dant au travail votre se- ";SPC(38 
);"rieux n'a d'egal que votre orig 
i n a 1 i t e . " 

640 PRINT"Neanmoins, attention au c [ 173873 
rise de deses- "; SPC(38);"poir;el 
les peuvent etre suicidaires. 

; SPC(38) 5 "Soyez vigilent et je cro 
is sincèrement SPC(38);"que vou 
s pourrez un jour tendre de très " 

650 PRINT"pres vers l'intersection [58273 
de la machine "; SPC(38);“et de 1 
'homme."iGOSUB 940 

660 CLSiPEN 2iPRINT"Je ne croyais [186283 
pas qu'il pourrait un jour“;SPC<38 
);"exister quelqu'un d'aussi près 
de la "; SPC < 38) 5 "perfection hum 
aine.Vos dispositions a ";SPC<38 
);"une intelligence hors commun da 
ns tout " 

670 PRINT"ce qui est abstrait et m [181853 
aterialiste vous";SPC(38);"permett 
ent d'avoir un avantage enorme 11 
; SPC(38);"pour cultiver votre huma 
nisme qui fait ";SPC(3B);"de vous 


54 





une personne agréable a vivre et' 1 
680 PRINT"tout a fait modeste de s 
on savoir.Mais 11 ; SPC (38) ; "vous sa 
vez tout comme moi,etre parfait, " 
!GOSUB 1020 

690 CLSîPEN 2:PRINT" qu'il faut par 
fois passer a une revisi on"; SPC<38 
);"de notre psychisme.Devos, cet h 


[10513] 


[161703 


omme ge- " ; SPC(38);"nia 1 est déjà 


plusieurs fois aller faire";SPC(38 
)|"un séjour dans un hôpital.Vous 
devez " 

700 PRINT"certainement avoir en pl 
us un jardin se-SPC<38);"cret da 
ns lequel je ferai bien mes pro- " 
; SPC(38);"menades.Je crois que je 
n'ai plus besoin"; S PC(3 8 );"de vant 
er vos qualités.Mon langage n'ar-" 
710 PRINT"riverai pas a traduire c 
e que mon coeur ” ; SPC ( 38) ,* " veut ex 
primer.La parole est faible de- " 
;SDSUB 1020 

720 CLS:PEN 2:PRINT"vant la puisse 
nce de la pensee.Continuez"; SPC(38 
);"a cultiver votre bon karma;vDus 
obtien- " 

730 PRINT"drez un jour,j'en suis s 
ur,le satori ou "; SPC(38);"1'i11um 
ination ultime.V dus serez alors " 
jSPC(38)j"le disciple de bouddha." 

:GOSUB 940 

740 ÎF score<=42 THEN GOTO 790 
750 IF score<=84 AND score>42 THEN 
GOTO 860 

760 IF score<=126 AND score>84 THE 
N GOTO 1050 

770 IF score<=168 AND score>126 TH 
EN GOTO 1130 

780 IF score>168 THEN GOTO 1210 
790 CLS:PEN 2:PRINT"Chere midinett 
e ou prematurement(a tort)SPC(38 
); "Madame,j'ai la lourde tache d'a 
voir a " ; SPC(38);"vous annoncer 
que votre prestation a " 

800 PRINT"ete des plus exécrables 
dans SUPER TEST " ; SPC(38);"a notât 
ion impartiale.Je vous situerais " 

,• SPC < 38 ) ; " dans la categorie prolif 
ique des Miss " 

810 PRINT"NRJ a 1'affût de Mister 
Burlington au "; SPC<38);"volant 
de sa Golf GTI.IJ en ressort egï>-" 

; SPC(39); "lement que vos Hobbies,a 
tteignant les " 

820 PRINT"sommets de 1 ' insignifian 
ce(plage,disco- ";G0SUB 1020 
830 CLS:PEN 2 : PR INT " theque...),riv 


[137953 


[89693 


[ 106743 


[ 1 16533 


[19913 

[22333 


[ 17663 


[28503 


[ 14903 
[ 13636 3 


[143003 


[125383 


[54883 


[120193 


alisent en betise avec le "}5PC<38 
) ; "Jeu de la Vérité.Quant a vos fa 
ntasmes,"; SPC(38);"i1 s aspirent a 
des nuits a sens unique " 

840 PRINT"ou votre passivité serai 
t le symbole e- "; SPC(38);"c1atant 
de votre nullité intérieure. De-" 
; SPC(38);"sole,mai s meme une machi 
ne peut discer- " 

850 PRINT"ner en vous l'insipidité 
meme.Espérons "; SPC(38);"que les 
années vous mettront sur la bon-" 
j SPC(38)j"ne voie!":G0SUB 940 
860 CLS:PEN 2:PRINT"Chere Mamzelle 
,je ne voudrais en aucun ”;SPC(38 
);"cas faire preuve de mauvaise es 
prit,mai s";SPC(38);"amenez moi vos 
parents que je vous re- " 

870 PRINT"fasse:en effet,vous fait 
es partie de la "; SPC(38);"c1asse( 
si classe il y a) des midinettes " 
;SPC(3S);"loin d'etre armees pour 
affronter la vie" 

880 PRINT"Habiter chez Papa-Maman 
est chose norma-“ ; SPC<38);"1e,meme 
si vous vous dites volontier "li-" 

; SPC < 38);"beree de tout souci fami 
liai.Votre cor- 11 

890 PRINT"don ombilical soigneusem 
ent double de ":G0SUB 1020 
900 CLS:PEN 2:PRINT"fourrure a fie 
re allure!!Cote intel1ect,"; SPC(38 
) 5 " un Guy des Cars dans la mainfou 
si vous "}SPC(38> } "preferez,1a co 
llection Arlequin) vous " 

910 PRINT"assure un bonheur fictif 
.Heureux les " ; SPC<38);"simp1 es 

d',..Si vous connaissez la sui- " 

; SPC(38);"te,vous pouvez la ranger 
dans un placard" 

920 PRINT”,car il n'y a pas de rem 
ede a votre e~ "; SPC<38);"tat.Corn 
plaisez vous dans la médiocrité, " 

; SPC(38); " voici un univers ou votr 
e orgasme cul- " ; SPC(38);"mi ne ! ? ! 

" :GOSUB 940 

930 L0CATE 5,20 î PR I NT "un univers 
ou votre orgasme cul mi ne ! ! !":GOSUB 
940 

940 cum*=" 

TEST TERMINE!! APPUYEZ 

SUR UNE TOUCHE 


[149763 


[76723 


[135123 


[120383 


[ 146973 


[51823 


[121483 


[132473 


[ 133573 


[57233 


[50493 


950 FOR i = 1 T0 LEN(cumt)-37 :LOCATE [75371 
1,23:PEN 3:PR INT MI D$<cum* , i , 37) : 

FOR u=l T0 5: NEXT -u: IF INKEY-M" " T 
HEN NEXT i:G0T0 950 


SiilisifcSïf 






960 GOTO 980 C496 D 

970 RETURN C5553 

980 CLSs INK 1,24s PEN 1 s LOCATE 2,10 C76763 
ï INPUT " VOULEZ VOUS REJOUER AVEC 

MOI. OU AVEZ VOUS PEUR D 

E VOUS DECOUVRIR DAVANTAGE ?(0 
/N)"ire* 

990 IF rel="o" OR rel="0" THEN RUN C23SS3 
"1651+" ELSE 1000 

1000 REMs LOCATE 2,17:PEN 2: PR INT " C 104863 
TANT PIS POUR VDUSiDANS 5 SECOND 
ES JE M , AUTO-DETRUIS"!FOR D=1 TO 
5000s NEXT s inti 4,16,22 > pen 4ilocat 
e 2 , 22 s? "trop tard":for i=l to 10 
00s next ssound 1,142,1000,1 , 1 s poke 
1 < 8,0 

1010 REM return E5433 

1020 apl= " [5727] 

APPUYER SUR UNE TOUCH 
E POUR CONTINUER 

II 

1030 FOR i = l TO LEN<api)-37 :LOCATE [4933] 
1,23s PEN 3s PR I NT MI DI(api,i,37)s F 
OR t = l TO 5s NEXT t s IF INKEYÎ="" TH 
EN NEXT 1 s GOTO 1030 

1040 RETURN 15553 

1050 CLSsPEN 2:PRINT"Sur les 5 cat [170933 
egories,vous etes sltuee ”; SPC < 3 
8 );"dans la 3iemeic’est vous dire 
que vous " ; SPC ( 38 ) ; 11 f ai tes parti 
de la classe des médiocres "; SPC(3 
8 );“dans le vrai sens du terme,c'e 
st a dire " 

1060 PRINT"tout juste dans la moye [211393 
nne.Mais pour ne "}SPC<38);"pas et 
re(c'est une grande question dit 
"5 S P C < 3 8 >; “1 'autre) complètement p 
essimiste,je pen-"|SPC(38);"se que 
l'age vous avantage.Comme vous e- 

II 

1070 PRINT"tes jeune de corps et d [97353 
'esprit vous ar- "5 SPC<38) 5 “rivere 
z,j'en suis sur,a maturité mais 
":GOSUB 1020 

1080 CfSiPEN 2:PR INT "plus tard que C17SS53 
les autres.Si vous etes "ii3PC(3 
B)j"belle,je crois que vous n’avez 
pas eu "; SPC(38)i "assez d'echec 
s et que telle une star ";SPC<3 
8 )i"vous vous croyez inaltérable e 
t toujours" 

1090 PRINT"rayonnante.La beaute d' C 16331 3 
une fleur est e- "}SPC(38);"phemer 
e,alors gars aux coups dursISi par 
"|SPC(38)i"contre vous n'etes pas 
d'une beaute e- 11 ; SPC (38) } "cl atan 
te,ne soyez pas complexeejles gens 


1100 PRINT"n ' aiment pas ca et ne m [97173 
anquent jamais de"; SPC(38)j"vous e 
nfoncer.Vous voyez sans vous con- 
GOSUB 1020 

1110 CLS:PEN 2: PRINT"naitre je cer [193133 
ne déjà en vous une vol onte"jSPC ( 3 
8 )i"de s'en sortir.Al 1 ons courage 
le tunnel ";SPC(38)j"a une finIBel 
le ou non,soyez plus nuan- ";SPC(3 
8 )}“cee dans vos propos et reflech 
issez a- " 

1120 PRINT"vant de parler afin qu ’ [105663 
on ne dise plus "; SPC<38);"de vou 
sselle parle plus vite qu'elle 
" ; SPC ( 38) ■, "pense" : GOSUB 940 
1130 CLS:PEN 2:PRINT"En dessus de [179213 
la plus haute categorie, "; SPC(3 
8 );"vous etes a la limite celle qu 
e je pre- "jSPC(38);"fere car pro 
fondement humaine vous savez";SPC( 

38);"equi1ibrer qualités avec defa 
u t s. E T c a " 

1140 PRINT"c'est ce qu'il y a de p [195243 
lus difficile a "; SPC(38);“accomp 
lir.Guel que soit votre physique 
SPC(38);"vous savez vous servir 
de votre intel1ijSPC(38) 5 "gence 
pour mettre en relief votre sen- 

II 

1150 PRINT"sualite corporelle et i [88763 
ntellectuelle.Vo-")SPC(38);"tre vi 
e n'est qu'harmonie entre interi- 
":GOSUB 1020 

1160 CLS:PEN 2:PRINT"eur et exteri [156443 
eur.Lorsque le moral n'est ";SPC(3 
8 );"pas bon votre force de caracte 
re vous " 5 SPC(38) 5 "rend maigre t 
out agréable et prete a ";SPC<3 
8 );"rendre un servi ce.Cependant et 
c'est ce " 

1170 PRINT"qui fait votre personna [203093 
lite, vous pre- "5 SPC(38)j"nez ce 
rtains problèmes trop a coeur.Ceci 
“;SPC(38)î"a déjà du vous jouer de 
s tours mais vo- " 5 SPC<38);"tre re 
cul vous permet d'eviter les memes 

U 

1180 PRINT"erreurs.En d’autres ter [118593 
mes votre intel- " 5 SPC(38) 5 “1igenc 
e approfondit votre maturité < a t - 
":GOSUB 1020 

1190 CLS:PEN 2:PRINT"tention a la [120723 
sénilité précoce).J'aimerai"; SPC(3 
S) 5 "tant qu'il n'y ait que des dem 
oiselles SPC<38);"aussi creativ 

es que vous sachant rire au" 




















S i SBÊK 


1200 PRINT"moment le plus innatend C 122453 
u.On ne s 'ennuie-"; SPC(38);"rait p 
lue comme aujourd'hui !":S0SUB 940 
1210 CLS:PEN 2sPRINT"A1ors lalmes [18533] 
sincères felicitations,ar- "}SPC<3 
8 );"river a un tel nveau de perspi 
cacite est”jSPC<38)i"hors du commu 
n.Donc de chose l'unesou ";SPC(3 
8 );"vous avez triche ou votre chan 
ce dépassé" 

1220 PR INT"1'entendement ; mai s comm C16064 3 
e ces 2 conclusi-";SPC(38);"ons ne 
, sauraient satisfaire un esprit 
SPC<38)}“tordu tel que le votre, 
car il faut etre "; SPC(38)\"tordu 
pour avoir autant de bonnes repon- 

II 

1230 PRINT"ses dans ce test;je vou £82231 
s avouerais que ”; SPC<38);"vous n 
e manquez ni d'humour ni d'intui- 
“ :GQSU 8 1020 

1240 CLS:PEN 2sPRINT"tion,que vous £198391 
avez répondu ,sans nul ";SPC(3 
B);"doute,1 es yeux fermes.De toute 
ma carri-";SPC(38);“ere de logici 


el concu par des hommes non";SPC(3 
8 )) "misogynes,je ne pensais vraime 
n t pas q u‘" 

1250 P RIN T"i1 puisse y avoir sur c £ 147971 
e bas monde une " ; SPC(38)j"creatu 
re de reve.Mais il me vient un 
“ ;SPC<38)j"doutes avez vous bien re 
pondu au début a " ; SPC(38);"1 a que 
stion H ou F? Car je crois que la 

II 

1260 PRINT"perfection n'appartient £97321 
qu'au masculin. ”)SPC<38);"Bref s 
i vous etes quand meme une femme, 

"sGOSUB 1020 

1270 CLS:PEN 2 : PR INT"j’ose esperer £215231 
que votre intelligence ne ”;SPC(3 
8 );"vous sert pas a faire souffrir 
de pau- " ;SPC<38)j"vres hommes n 
aifs livres a des demoisel \ SPC(3 
B);"les comme vous.Enfin vous save 
z tout " 

1280 PRINT"comme moi ce que c'est £96321 
d'etre par fai t .Je" 5 SPC(38) ; "vous e 
mbrasse sur votre verrue qui vous 
”;.SPC(38> ; "sert de nez!":G0SU8 940 
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• 1 TH 17S + 10 DISQUETTES 3" 269 F SOIT 22 F LA DISQUETTE 
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FORFAIT DE PORT 40 F (jusqu'à 5 Kg, au-delà nous consulter). PRIX TTC 


Coffret de rangement 
10 disquettes 


NUIT ET JOUR. 


























Contrôle par joystick ou davier. 
Bonne chance ! 

Frédéric Carbonero 


Le programme est lancé en Basic 
' mais fonctionne en langage 
machine, ce qui lui permet d’être 
très rapide. Vous êtes aux com¬ 
mandes d'un hélicoptère de 
combat ; vous devrez attraper 


les fantômes verts tout en évitant 
les croix rouges. Le mode 
d’emploi est évident et présent 
dans le programme. Vous dispo¬ 
sez, au départ du jeu, de trois 
hélicoptères. Tous les cent fan¬ 


tômes attrapés, vous aurez droit 
à un bonus et le jeu s’accélé¬ 
rera... Pour abandonner, 
appuyez sur <ESC>, pour 
reprendre le jeu < CLR>, pour 
effectuer une pause : < DEL >. 




10 MODE 0;INK 0,26;PAPER 0:BORDER [6059] 
8,1:INK 1,6: PEN 1 s LQCATE 5,10:PR IN 
î " VERIFICATION"sLOCATE 5,20:PRINT 
"DES DATAS ! " :L0CATE 1,25 
20 SDi»iae = 0: RESTORE 320:F0R f = l TQ [83113 
100;REAô a:scmme-somirie + a :NËXT:IF s 
□ mmeOi 1252 THEN PAINT "Erreur de 
data ligne 930 a il 30 !"; STOP 
30 SDHi«ie = 0! RESTORE 1030s FOR t = i T0 [9833] 
100: R E A D a: s c- m m e=s d m m e + a î NEXT: IF 
s o /r: m e = ; >122 40 THEN PR INT "Erreur de 
data ligne 1140 a 1340 !"; S T 0 P 
40 5 Oflime=0:RESTORE 1240s FOR F = 1 T0 [7809] 
100:READ a: samme-somme+a:NEXT: IF 
sombOI 1827 THEN PRINT "Erreur de 
data liane 1350 a 1550 !": STOP 
50 5 omme=û:RESTORE 1450:F0R [=1 T0 [9445] 
100: READ a: 5omme=50iriffie-t-a: NEXT : IF 
somme 1 ! >10623 THEN PRINT "Erreur de 
data ligne 1560 a 1760 *' : STOP 

60 som me-Os RESTQRE 1660: F 0 R f = l T0 [8374] 
100: READ a:somme=somme+a:NEXT: IF 
somme-; >10239 THEN PRINT "Erreur de 
data ligne 1770 a 1970 !":ST0P 
70 somme=0: RESTORE 1870:F0R f=l T0 [8320] 
100: READ a:somme=somme+a:NEXT: IF 


somme010866 THEN PRINT "Erreur de 
data ligne 1980 a 2180 !":ST0P 
80 5 omme= 0 :RESTORE 2080:F0R F=1 TG [8775] 
100: READ a:somine = sommE + a:NEXT: IF 
5 omme< >10734 THEN PRINT "Erreur de 
data ligne 2190 a 2390 !":ST0P 
90 somme=0:RESTORE 2290: FOR f = l T0 C 9305] 
100 : RE AD a : somme-ssomme-t-a : NEXT : IF 
somme010779 THEN PRINT "Erreur de 
data ligne 2400 a 2600 !":ST0P 
100 5 Oflime= 0 :RESTORE 2500:F0R f=l T [8400] 
0 IOOîREAD a:somme=sofflme + a:NEXT: IF 
somme010605 THEN PRINT "Erreur d 
e data ligne 2610 a 2810 !”:ST0P 
110 5 omme= 0 :RESTORE 2710:F0R f = l T [8411] 
0 100.-READ a: 5 omme = sonime + a: NEXT: IF 
50flime< >10720 THEN PRINT "Erreur d 
e data ligne 2820 a 3020 !":STQP 
120 somme=0: RESTORE 2920:F0R f = l T [9082] 
0 IOOîREAD a: somme= 5 Qmme+a: NEXT: IF 
somme011169 THEN PRINT "Erreur d 
e data ligne 3030 a 3230 î": STOP 
130 5 omme = 0: RESTORE 3130:FOR f-1 T [ 7775] 
0 IOOîREAD a: 5 omme = 5 Dmme + a:NEXT: IF 
sommeOl 1025 THEN PRINT "Erreur d 









280 somme=0:RESTORE 6280:FOR F = 1 T 
0 100s READ à!somme=somme+a:NEXT:IF 
sommet >8049 THEN PRINT "Erreur de 
date ligne 6390 a 6590 !":STOF' 

290 somme=Oi RESTORE 6490: F0R F = 1 T 
0 lOOiREAD a :somme = somme + aiNEXT: IF 
somme09141 THEN PRINT "Erreur de 
data ligne 6600 a 6800 ! ": STOP 
300 5omme=0:RESTORE 6700:FOR f=l T 
0 lOOiREAD a :somme = somme + a:NEXT: IF 
sommet>11741 THEN PRINT "Erreur d 
e data ligne 6810 a 7010 * " : S T D P 
310 somme = 0: RESTORE 6910 s F0R T = 1 T 
0 lOOiREAD a:somme = somme + a:NEXTi IF 
sommet>1 1366 THEN PRINT "Erreur d 
e data ligne 7020 a 7220 ! " : STOP 
320 somme=0:RESTQRE 7120:FOR f=l T 
0 lOOiREAD a:somme=somme+aiNEXT:IF 
somme 1 ; >7623 THEN PRINT "Erreur de 
data ligne 7230 a 7430 ! " iSTOP 
330 5omme=0:RESTQRE 7330:F0R f=l T 
0 lOOiREAD a : s'omme=somme + a : NEXTi I F 
sommet>4946 THEN PRINT "Erreur de 
data ligne 7440 a 7640 '":STOP 
340 5omme=0:RESTCRE 7540:F0R f=l T 
0 lOOiREAD a:somme=somme+a:NEXT: IF 
5 o m m e t > 3 8 9 8 THEN PRINT "Erreur de 
data ligne 7650 a 7850 ! ": STOP 
350 somme=Oi RESTORE 7750:F0R f = l T 
0 lOOiREAD ai somme=somme+aiNEXTi IF 
sommet>4060 THEN PRINT "Erreur de 
data ligne 7860 a 8060 !":STOP 
360 5omme = 0i RESTORE 7960:F0R F = 1 T 
0 lOOiREAD a:somme=somme+a:NEXT:IF 
sommet>4235 THEN PRINT "Erreur de 
data ligne 8070 a 8270 ! w s STOP 
370 somme = 0: RESTORE 81 70: F0R --f = 1 T 
0 lOOiREAD a :somme = somme + aiNEXTiIF 
sommet>4875 THEN PRINT "Erreur de 
data ligne 8280 a 8480 !"iSTOP 
380 somme=0:REST0RE 8330iF0R i =1 T 
0 101 i READ ai5omme=somme+aiNEXTiIF 
5omme<>2022 THEN PRINT "Erreur de 
data ligne 8490 a 8690 ! " : STOP 
390 MODE 1 : PAPER 0:PEN 2:GRAPHICS 
PEN 1 : INK 0,3:INK 1 .26: INK 2,25:BO 
RDER 0 

400 REM * Lettre H * 

410 MOVE 10,300 : DRAW 30,300:DRAW 3 
0,210:DRAW 8 5,210 :D R A W 85,300iDRAW 
105,300: DRAW 105,100: DRAW 85,100: 
DRAW 85,190:DRAW 30,190:DRAW 30,10 
OiDRAW 10,100:DRAW 10,300 
420 REM * Lettre E * 

430 MOVE 115,300iDRAW 210,300:DRAW 
210,280:DRAW 135,280:DRAW 135,210 
: DRAW 175,210:DRAW 175,190: DRAW 13 


[85921 


[9431 3 


[ 1 12421 


[93691 


[85171 


[82321 


[80143 


[86361 


[78731 


[89611 


[94111 


[32101 


[9091 

[95951 


[8831 

C76441 


e data ligne 3240 a 3440 !" : S TOP 
140 somme=0: RESTORE 3340:F0R T = 1 T 
0 lOOiREAD a :5omme = SDmme + aiNEXT:IF 
sommet >10667 THEN PRINT "Erreur d 
e data ligne 3450 a 3650 î": S T 0 P 
150 somme=0:RESTORE 3550sF0R F=1 T 
0 lOOiREAD ai5omme=5omme+a:NEXTiIF 
sommet >1 1240 THEN PRINT "Erreur d 
e data ligne 3660 a 3860 ! "iSTOP 
160 5omme=0:RESTORE 3760:F0R f = l T 
0 lOOiREAD a:5omme=somme+aiNEXTiIF 
sommet >11081 THEN PRINT "Erreur d 
e data ligne 3870 a 4070 !"iSTOP 
170 somme = OiRESTORE 3970 : FOR f = l T 
0 lOOiREAD a:somme=somme+a:NEXTiIF 
sommet >10975 THEN PRINT "Erreur d 
e data ligne 4080 a 4280 !"iSTOP 
180 somme=0:REST0RE 4180iFOR F=1 T 
0 lOOiREAD aisomme=somme + a:NEXT: IF 
sommet >1 1554 THEN PRINT "Erreur d 
e data ligne 4290 a 4490 ! "iSTOP 
190 somme = 0:RESTORE 4390: FOR f = l T 
0 lOOiREAD a: 5omme=5omme-t-a: NEXT: IF 
sommet >14049 THEN PRINT "Erreur d 
e data ligne 4500 a 4700 !"iSTOP 
200 somme = Q: RESTORE 4600:FGR f = l T 
0 lOOiREAD a:somme=somme+aiNEXT:IF 
sommet>11148 THEN PRINT "Erreur d 
e data ligne 4710 a 4 910 !" : S T 0 P 
210 somme=Os RESTORE 4810:FOR t = l T 
0 lOOiREAD a :somme=somme + aiNEXT:IF 
sommet>12673 THEN PRINT "Erreur d 
e data ligne 4920 a 5120 ! " : STOP 
220 somme=OiRESTORE 5020iFGR f=l T 
0 lOOiREAD a : 5 omme = somme + a:NEXT:IF 
sommet>11704 THEN PRINT "Erreur d 
e data ligne 5130 a 5330 !": S T 0 P 
230 5omme=0:RESTORE 5230:FOR f=l T 
0 lOOiREAD ai 5omme = somme+’a: NEXT: IF 
sommet>10863 THEN. PRINT "Erreur d 
e data ligne 5340 a 5540 !"iSTOP 
240 somme=0:RESTORE 5440:F0R F=1 T 
0 lOOiREAD aisomme=somme+aiNEXT: IF 
sommet>10233 THEN PRINT "Erreur d 
e data ligne 5550 a 5750 !"iSTOP 
250 somme = 0:RESTORE 5650: FOR F = 1 T 
0 lOOiREAD a :somme = somme + a:NEXTiIF 
sommet >10794 THEN PRINT "Erreur d 
e data ligne 5760 a 5960 !"iSTOP 
260 somme=0:RESTORE 5B60:F0R F=1 T 
0 lOOiREAD a;somme = somme + aiNEXT : IF 
sommet >7925 THEN PRINT "Erreur de 
data ligne 5970 a 6170 ! "iSTOP 
270 somme=OiRESTORE 6070:F0R f=l T 
0 lOOiREAD a:somme=somme+aiNEXTiIF 
sommet>5868 THEN PRINT "Erreur de 
data ligne 6180 a 6380 !"iSTOP 


[7601 1 


[76671 


[68681 


[79341 


[97901 


[76481 


[7521 1 


[74611 


[82033 


[8083] 


[98201 


[109921 


[92561 


[83351 











5.190 : DRAW 13 5,12 0 :D R A W 210,120:DR 
AW 210,100:DRAW 115,100:DRAW 115,3 


620 FOR f = 16 TO 400 STEP 32:M0VE 0 [3353] 

,f: DRAW 640,f,3 : NEX T 

630 MEMORY 34999 [384] 

640 RESTORE 820:LDCATE 5,13 : PR I NT C 1 1404] 
"VEUILLEZ PATIENTER S.V.P"5:F0R f = 

35000 TO 38700:READ a:PQKE f,a:NEX 
T :LOCATE 5, 13:PRINT STRING*(30,128 
) ; : FOR f = 38701 TO 38900:P0KE -f,0: N 
EXT 

650 CALL 35000 [367] 

660 FOR f = l TO 25:a*=INKEY*;NEX T [ 1902] 

670 FOR f = l TO 24:LOCATE 1,f:PRINT [ 3772] 

STRING*(40,128)s NEXT 

680 PEN 2: INK 2,24:a = PEEK<42501): 0 [3512] 

N a+1 GOTO 690,700,710,720,730,740 
,750,760,770,780,790 

690 LOCATE 5,5:PRINT “VOTRE SCORE [10138] 

EST LAMENTABLE !!!":LQCATE 2, 15 : PR 

INT "VOUS AVEZ ENCORE BEAUCOUP DE 

PROGRES":LOCATE 15.18: PRINT "A FAI 

RE ! ! !“sCALL &BB05iGOTO 800 

700 LOCATE 5,5ï PRINT "VOTRE SCORE [10542] 

EST PASSABLE ! ! !":LOCATE 6,15:PRIN 

T "VOUS AVEZ ENCORE DES PRQGRES":L 

OCATE 15,18:PRINT "A FAIRE ! ! !“: CA 

LL S<BB05: GOTO 800 

710 LOCATE 7,5: PRINT "VOTRE SCORE [8796] 
EST MOYEN !î!";LOCATE 6 , 15 : PP INT " 

JE SUIS SUR QUE VOUS POUVEZ":LOCAT 
E 12,18 : PR INT "MIEUX FAIRE ! !i": CA 
LL &BB05:GOTO 800 

720 LOCATE 7,5: PRINT "VOTRE SCORE [61013 
EST ASSEZ BON ! ! !":LOCATE 6,15: PR I 
NT "MAIS VOUS POUVEZ MIEUX FAIRE ! 

! ! ”:CALL ?cBB05 : GOTO 800 

730 LOCATE 10,5 : PR I NT "VOTRE SCORE [6761 ] 
EST BON !f!":LOCATE 2,15î PR INT "M 
AIS VOUS POUVEZ ENCORE MIEUX FAIRE 
! I !" : CALL «<BB05:G0T0 800 
740 LOCATE 7,5 : P RIN T "VOTRE SCORE [124133 
EST TRES BON ! ! ! " ;LOCATE 6,15 : P RIN 
T "JE SUIS FIER DE VOUS,BIEN QUE": 

LOCATE 7,18: F'RINT "VOUS PUISSIEZ L 

E BATTRE î ! * : CALL &BB05:G0T0 800 

750 LOCATE 7,5î PRINT "VOTRE SCORE [8604] 

EST EXCELLENT ! ! !" s LOCATE 3,15 : PR I 

NT "JE SUIS EMERVEILLE PAR VOS REF 

LEXES ! " : CALL !<BB05:GOTO 800 

760 LOCATE 4,5: PRINT "VOTRE SCORE [98663 

EST IMPRESSIONNANT ! ! !":L 0 C A T E 3,1 

5:PRINT "JE SUIS EMERVEILLE PAR VO 

S REFLEXES ("iLOCATE 16,20 : PR I NT " 

BRAVO M !"s CALL &8B05:G0T0 800 
770 LOCATE 7,5 ï P RIN T "VOTRE SCORE [9404] 
EST ETONNANT ! ! !":LOCATE 1,15 : PR IN 
T "JE NE COMPRENDS PAS COMMENT VOU 
S FAITE !":LOCATE 16,20î PRINT "BRA 


440 REM » Lettre L * [837] 

450 MOVE 220,300:DRAW 240,300:DRAW [56063 
240,120:DRAW 315,120:DRAW 315,100 
: DRAW 220,100:DRAW 220,300 
460 REM * Lettre I * [9073 

470 MOVE 325,300:DRAW 420,300:DRAW [94893 
420.280 : DRAW 383,2B0:DRAW 383,120 
.-DRAW 420,120: DRAW 420,100: DRAW 32 
5,100:DRAW 325,120:DRAW 363,120:DR 
AW 363,280: DRAW 325,280:DRAW 325,3 
00 

4B0 REM * Lettre C * [879] 

490 MOVE 430,300:DRAW 525,300:DRAW [103381 
525,250:DRAW 505,250: DRAW 505,280 
: DRAW 450,280:DRAW 450,120:DRAW 50 
5,120:DRAW 5Ô5,150:DRAW 525,150sDR 
AW 525.100:DRAW 430,100:DRAW 430,3 


500 REM * Lettre 0 * [8233 

510 MOVE 535,300:DRAW 630,300:DRAW [63503 
630,100:DRAW 535,100:DRAW 535,o00 
:MOVE 555.280:DRAW 610,280:DRAW 61 
0,120:DRAW 555,120:DRAW 555,230 
520 LOCATE S.24:PRINT "Propose par [50533 
Frédéric CARBONERO : CALL 8< B B13 
530 MODE 1 : INK 0,1:INK 1,24:PEN 1 [21193 

540 CLS:LOCATE 5,5:INPUT "Instruct [47923 
ion s (0/N ! “; a*: IF UF'PER*(a*)< >"0" 

74EN 590 

550 CLS:LOCATE 15,5 : PR I NT "Instruc [51713 
tions. "iLOCATE 15,6:PRINT "- 


560 LOCATE 2,10 ï PR INT "C'est super [ 174523 
facile :"iLOCATE 2,13:PR INT "Vous 
etes aux commandes d'un hélico : " 

:LOCATE 2,15:PRINT “Vous devez att 
râper les fantômes vert,":LOCATE 2 
.17:PR INT "tout en évitant les cro 
ix rouges ." 

570 LOCATE 2,20 : PR INT "Pour abando [ 12261 3 
nner taper 'ESC ' .":LOCATE 2,22: PR 
INT "Pour arrêter quelques instant 
s 'DEL' ."iLOCATE 2,24:PRINT "Pour 
reprendre ' CLR’ ." 

530 FOR f = l TO 25:a$ = INKEY*:NEXT:C [21213 
ALL ?! B B 0 5 

590 CLS:LOCATE 5,5:INPUT "Joystic [67233 
ou Clavier (J/K! ";a*:IF UPPER*(a* 

)="J" THEN POKE 42500,1 ELSE POKE 
42500,0 

600 MODE 1 : INK 0,1:INK 1,6:INK 2,1 E31973 
8: INK 3,13:PEN 1: BORDER 13 
610 LOCATE 1,25 : PR I NT "PointssOOOO [36963 
0 H e 1 i c o s : 3 " 
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va ! ! ! ":CALL ?<BB05: GOTO 900 
780 LOCATE 5,5 : P RIN T “VOTRE SCORE E 100490 
EST IMBATTABLE ! ! î"t LOCATE 1,15: PR 
INT “JE NE COMPRENDS PAS COMMENT V 
OUS FAITE ! "s LOCATE 16,20: PRINT "B 
RAVO ! ! ! " i CALL S<BB05î GOTO 800 
790 CLSs LOCATE 4,5: PRINT "VOUS ETE [ 120543 
S BEAUCOUP TROP FORT ! ! ? " ï LOCATE 1 
,15:PRINT "JE PREFERE ABANDONNER P 
LUTOT QUE D'ETRE":LOCATE 6,20:PRIN 
T "RIDICULISE ! ! ! " : CALL S<BB05:G0T0 
800 

800 CLS:LOCATE 5,5: INPUT "Voulez-v [83183 
ous rejouer (0/N) ";a$:IF UPPERKa 
$)="0" THEN RUN 390 ELSE MODE 1 : EN 
D 


810 

REM 

* MEM 35000-35099 * 

[10593 

820 

DATA 

62,3,50,171,148 

C8963 

830 

DATA 

33,137,19,34,155 

[8083 

840 

DATA 

148,62,1-,50,185 

[4843 

850 

DATA 

148,50,187,148,50 

[10323 

860 

DATA 

189,148,50,191,148 

[11013 

870 

DATA 

50,193,148,50,195 

[10313 

880 

DATA 

148,62,0,50,184 

[6853 

890 

DATA 

148,50,186,148,50 

[7193 

900 

DATA 

188,148,50,190,148 

[13773 

910 

DAT-A 

50,192,148,50,194 

[9413 

920 

DATA 

148,33,13,19,205 

[7433 

930 

DATA 

117,187,33,78,146 

[11363 

940 

DATA 

6,4,126,205,90 

[5213 

950 

DATA 

187,35,16,249,205 

[10293 

960 

DATA 

121,148,221,33,154 

[12113 

970 

DATA 

149,253,33,114,149 

[9753 

980 

DATA 

33,228,195,34,164 

[7303 

990 

DATA 

148,205,5,147,1 

[6483 

1000 

DATA 

7,37,237,67,169 

[794 3 

1010 

DATA 

148,62,66,205,30 

[320 3 

1020 

REM 

* MEM 35100-35199 * 

[10613 

1030 

DATA 

187,192,62,79,205 

[8793 

1040 

DATA 

30,187,196,69,144 

C12083 

1050 

DATA 

58,199,148,50,5 

[7943 

1060 

DATA 

166,254,10,200,205 

[8293 

1070 

DATA 

140,148,33,4,166 

[8323 

1080 

DATA 

126,254,0,40,45 

[5933 

1090 

DATA 

205,36,187,34, 166 

[11703 

1100 

DATA 

148,124,254,0,40 

[6583 

1110 

DATA 

66,124,230,1,254 

[9273 

1120 

DATA 

1,204,157,147,124 

[4513 

1130 

DATA 

230,2,254,2,204 

[8693 

1140 

DATA 

224,147,124,230,4 

[8373 

1150 

DATA 

254,4,204,31,148 

[6313 

1160 

DATA 

124,230,8,254,8 

[8943 

1170 

DATA 

204,76,148,24,32 

[9383 

1180 

DATA 

62,0,205,30,187 

[8243 

1190 

DATA 

196,157,147,62,2 

C9483 

1200 

DATA 

205,30,187,196,224 

[12343 

1210 

DATA 

147,62,8,205,30 

[9203 


[9723 

[6873 

[5903 

[7553 

C8433 

C 898 3 

[9843 

[8583 

[8563 

[9813 

[ 12363 

[5833 

[9843 

C9403 

[11663 

[12783 

[5313 


1220 DATA 187,196,31,148,62 
1230 REM * MEM 35200-35299 * 
1240 DATA 1,205,30,187,196 
1250 DATA 76,148,58,163,148 
1260 DATA 254,0,202,17,13B 
1270 DATA 221,33,240,148,58 
1280 DATA 168,148,254,0,32 
1290 DATA 12,62,1,50,168 
1300 DATA 148,253,33,200,148 
1310 DATA 195,139,138.254,1 
1320 DATA 32,12,62,2,50 
1330 DATA 168,148,253,33,208 
1340 DATA 148,195,139,138,254 
1350 DATA 2,32,12,62,3 
1360 DATA 50,168,148,253,33 
1370 DATA 216,143,195,139,138 
1380 DATA 254,3,32,12,62 
1390 DATA 4,50,168,148,253 
1400 DATA 33,224,148,195,139 
1410 DATA 138,254,4,32,12 
1420 DATA 62,5,50,168,148 
1430 DATA 253,33,232,148,195 
1440 REM * MEM 35300-35399 * 
1450 DATA 139,138,254,5,32 
1460 DATA 12,62,6,50,168 
1470 DATA 148,253,33,224,148 
1480 DATA 195,139,138,254,6 
1490 DATA 32,12,62,7,50 
1500 DATA 168,148,253,33,216 
1510 DATA 148,195,139,138,62 
1520 DATA 0,50,168,148,253 
1530 DATA 33,208,148,24,122 
1540 DATA 221,33,154,149,58 
1550 DATA 168,148,254,0,32 
1560 DATA 11,62,1,50,168 
1570 DATA 148,253,33,114,149 
1580 DATA 24,100,254,1.32 
1590 DATA 11,62,2,50,168 
1600 DATA 148,253,33,122, 149 


1610 DATA 24,85,254,2,32 
1620 DATA 11,62,3,50,168 
1630 DATA 148,253,33,130,149 
1640 DATA 24,70,254,3,32 
1650 REM * MEM 35400-35499 * 
1660 DATA 11,62,4,50,168 
1670 DATA 148,253,33,138,149 
1680 DATA 24,55,254,4,32 
1690 DATA 11,62,5,50,168 
1700 DATA 148,253,33,146,149 
1710 DATA 24,40,254,5,32 
1720 DAT-A 12,62,6,50,168 
1730 DATA 148,253,33,138,149 
1740 DATA 195,139,138,254,6 
1750 DATA 32,11,62,7,50 
1760 OATA 168,148,253,33,130 
1770 DATA 149,24,9,62jO 


[10553 

[10693 

[ 10203 

[8953 

[6573 

[10533 

[8633 

[7923 

C11603 

[9373 

[7273 

[12563 

[11673 

[10653 

[1187] 

Cl 5043 

[8793 

[7513 

[9683 

[10523 

[990 3 

[10453 

[9613 

[9383 

[5833 

[10333 

[940 3 

[9113 

[ 12483 

[11403 

[10643 

[11673 

[11323 

[8633 

[6863 

[5983 

[874 3 

[9013 

[9813 






1780 

DATA 

50,168,148,253,33 

C1187] 

2350 

DATA 

221,33,22,150,205 

[1115] 

1790 

DATA 

122,149,42,164,148 

[ 1073] 





1800 

DATA 

205,5,147.58,184 

[11363 

2360 

DATA 

63,147,58,190,148 

[929] 

1810 

DATA 

148,254,0,40,14 

[8543 





1820 

DATA 

254,77,32,42,33 

[7673 

2370 

DATA 

254,0,40,14,254 

[599] 

1630 

DATA 

75,192,221,33,46 

[1007] 

2380 

DATA 

77,32,42,33,11 

C907] 

1840 

DATA 

151,205,63,147,62 

[9453 

2390 

DATA 

196,221,33,46,151 

[ 1290] 

1650 

DATA 

1,50,184,148,237 

[ 1024] 

2400 

DATA 

205,63,147,62,1 

[ 794 ] 

1860 

REM 

* MEM 35500-35599 * 

[11323 

2410 

DATA 

50,190,148,237,95 

[945] 

1870 

DATA 

95,230,1,50,172 

[6013 

2420 

DATA 

230,1,50,178,148 

[1206] 

1380 

DATA 

148,40,6.221.33 

C589] 

2430 

DATA 

40,6,221,33,232 

[1217] 

1890 

DATA 

232.150,24,4.221 

[924] 

2440 

DATA 

150,24,4,221,33 

[583] 

1900 

DATA 

33,92,150,33,0 

[466] 

2450 

DATA 

92,150,33,192,195 

[ 12653 

1910 

DATA 

192,205,63,147,24 

[812] 

2460 

DATA 

205,63,147,24,35 

[8463 

1920 

DATA 

35.33,255,191,58 

[599] 

2470 

DATA 

33,191,195,58,190 

C1189] 

1930 

DATA 

184,148,60.50, 184 

[8953 

2480 

DATA 

148,60,50,190,148 

[1033] 

1940 

DATA 

148,61,35,61,32 

[550 3 

2490 

REM 

* MEM 35800-35899 * 

[ 1337] 

1950 

DATA 

252,53. 172,148,-254 

[9613 

2500 

DATA 

61,35,61,32,252 

[618] 

1960 

DATA 

0.40,6,221,33 

[11363 

2510 

DATA 

58,178,148,254,0 

[1034] 

1970 

DATA 

162,150,24,4,221 

[399] 

2520 

DATA 

40,6,221,33,162 

[ 12233 

1980 

DATA 

33,22,150,205,63 

[11773 

2530 

DATA 

150,24,4,221,33 

[583] 

1990 

DATA 

147,58,186,148.254 

[9153 

2540 

DATA 

22,150,205,63,147 

[987] 

2000 

DATA 

0.40,14,254,77 

C10123 

2550 

DATA 

58, 192, 148,254,0 

C739] 

2010 

DATA 

32,42,33,139,193 

[778 3 

2560 

DATA 

40,14,254,77,32 

[614] 

2020 

DATA 

221,33,46,151,205 

[ 1044 3 

2570 

DATA 

42,33,75,197,221 

[732] 

2030 

DATA 

63, 147,62,1,5 U 

[4853 

2580 

DATA 

33,46,151,205,63 

[1157] 

2040 

DATA 

186,148,237,95,230 

[982 3 

2590 

DATA 

147,62,1,50,192 

[662] 

2050 

DATA 

1,50,174,148,40 

[ 10433 

2600 

DATA 

148,237,95,230, 1 

[ 794 ] 

2060 

DATA 

J MM I TT n T n i «T A 

U> , A. 4. i 4 v> O • M..--' -L. n i J V 

[9493 

2610 

DATA 

50,180,148,40,6 

[ 1005] 

20 70 

REM 

* MEM 35600-35699 » 

[9753 

2620 

DATA 

221,33,232,150,24 

[978] 

2080 

DATA 

24,4.221,33,92 

[5863 

2630 

DATA 

4,221,33,92,150 

[ 329] 

2090 

DATA 

150,33,64.193,205 

[11553 

2640 

DATA 

33,0,197,205,63 

[894] 

2100 

DATA 

63,147,24,35,33 

[871 ] 

2650 

DATA 

147,24,35,33,255 

[961 ] 

2Ü0 

DATA 

63,193,58,185,148 

[7213 

2660 

DATA 

196,58,192,148,60 

[579] 

21 20 

DATA 

60,50,186,148,61 

[500] 

2670 

DATA 

50,192,148,61,35 

[912] 

2130 

DATA 

35,61,32,252,58 

[9593 

2680 

DATA 

61,32,252,58,180 

C936 ] 

2 1 40 

DATA 

174,148,254,0.40 

[844] 

2690 

DATA 

148,254,0,40,6 

[8163 

n •) CO 

2 * J V 

DATA 

6,221,33,162,150 

[8553 

2700 

REM 

* MEM 35900-35999 * 

C1428] 

2160 

D h i A 

fi '"''TM TT O 'M 

£.*T i *t b A. X. X. * À -L 

[800] 

2710 

DATA 

221,33,162,150,24 

[ 1058] 

2170 

DATA 

150,205,63,147,58 

C104Î3 

2720 

DATA 

4,221,33,22,150 

[529] 

2180 

DATA 

188,148.254,0.40 

[10813 

2730 

DATA 

205,63,147,58,194 

[1160] 

2190 

DATA 

14,254,77,32,42 

[8403 

2740 

DATA 

148,254,0,40,14 

[854 ] 

2200 

DATA 

33,203,194,221,33 

[12403 

2750 

DATA 

254,77,32,42,33 

[767] 

2210 

DATA 

46, 151,205,63,147 

[ 7083 

2760 

DATA 

139,19B,221,33,46 

[ 1045] 

f\ 

&À.JL V» 

DATA 

62,L,50,188, 148 

[506 3 

2770 

DATA 

151,205,63,147,62 

[945] 

2230 

DATA 

237,95,230,1,50 

[6413 

2780 

DATA 

1,50,194,148,237 

[10103 

2240 

DATA 

176,148,40,6,221 

[9123 

2790 

DATA 

95,230,1,50,182 

[623] 

2250 

DATA 

33,232,150,24,4 

C10783 

2800 

DATA 

148,40,6,221,33 

[589] 

2260 

DATA 

221,33,92,150,33 

[11083 

2810 

DATA 

232,150,24,4,221 

[924] 

2270 

DATA 

128,194,205.63,147 

[5523 

2820 

DATA 

33,92,150,33,64 

[469] 

2280 

REM 

* MEM 35700-35799 * 

£10753 

2830 

DATA 

198,205,63,147,24 

[8053 

■■ 2290 

DATA 

24,35,33,127,194 

[9723 

2840 

DATA 

35,33,63,198,58 

[469] 

2300 

DATA 

53,188,148,60,50 

[784] 

2850 

DATA 

194,148,60,50,194 

[351] 

2310 

DATA 

188,148,61,35.61 

[13763 

2860 

DATA 

148,61,35,61,32 

[550] 

2 3 2 0 

DATA 

32.252,58,176,148 

[12063 

2870 

DATA 

252,58,182,148,254 

[870] 

2330 

DATA 

254,0,40,6,221 

[7233 

2880 

DATA 

0,40,6,221,33 

[11363 

2340 

DATA 

33,162.150,24,4 

[9783 

2890 

DATA 

162,150,24,4,221 

[8993 


62 
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2900 

DATA 

33,22,150,205,63 

[11771 

3470 

DATA 

96,196,221,33,46 

£470] 

2910 

REM 

* MEM 36000-36099 * 

[855] 

3480 

DATA 

151,205,63,147,62 

[945] 

2920 

DATA 

147,58,185,148,61 

[1165] 

3490 

DATA 

77,50,191,148,237 ' 

£612] 

2930 

DATA 

254,0,32,42,33 

[442] 

3500 

DATA 

95,230,1,50,179 

£618] 

2940 

DATA 

160,192,221,33,46 

[788] 

3510 

DATA 

148,40,6,221,33 

£589] 

2950 

DATA 

151 , 205,63,147,62 

[945] 

3520 

DATA 

162,150,24,4,221 

[899] 

2960 

DATA 

77,50,185,148,237 

[1037] 

3530 

DATA 

33,22,150,33,171 

[1157] 

2970 

DATA 

95,230,1,50,173 

[600] 

3540 

REM 

+ MEM 36300-36399 * 

£1221] 

2980 

DATA 

148,40,6,221,33 

[589] 

3550 

DATA 

196,205,63,147,24 

£769] 

2990 

DATA 

162,150,24,4,221 

£ B99 ] 

3560 

DATA 

34,33,95,196.58 

£814] 

3000 

DATA 

33,22,150,33,235 

[1117] 

3570 

DATA 

191,148,61,50,191 

£1201] 

3010 

DATA 

192,205,63,147,24 

[812] 

3580 

DATA 

148,35,61,32,252 

£8233 

3020 

DATA 

34,33,159,192,58 

[961 ] 

3590 

DATA 

58,179,148.254,0 

£905 3 

3030 

DATA 

185,148,61,50,185 

£943] 

3600 

DATA 

40,6,221,33,232 

£12173 

3040 

DATA 

148,35,61,32,252 

£8233 

3610 

DATA 

150,24,4,221,33 

£583] 

3050 

DATA 

58,173,148,254,0 

£9313 

3620 

DATA 

92,150,205,63,147 

£724 ] 

3060 

DATA 

40,6,221,33,232 

[12173 

3630 

DATA 

58,193,148,61,254 

[8943 

3070 

DATA 

150,24,4,221,33 

£5833 

3640 

DATA 

0,32,42,33,160 

£11623 

3080 

DATA 

92,150,205,63,147 

£724] 

3650 

DATA 

197,221,33,46,151 

£866] 

3090 

DATA 

58,187,148,61,254 

£ 1067 3 

3660 

DATA 

205,63,147,62,77 

£909 3 

3100 

DATA 

0,32,42,33,224 

£11623 

3670 

DATA 

50,193,148,237,95 

[828] 

3110 

DATA 

193,221,33,46,151 

£4383 

3680 

DATA 

230,1,50,181,148 

£ 12203 

3120 

REM 

* MEM 36100-36199 * 

£12413 

3690 

DATA 

40,6,221,33,162 

£ 1223 3 

3130 

DATA 

205,63,147,62,77 

£909] 

3700 

DATA 

150,24,4.221,33 

£5833 

3140 

DATA 

50,187,148,237,95 

£9373 

3710 

DATA 

22,150,33,235,197 

£ 1148] 

3150 

DATA 

230,1,50,175,148 

£10333 

3720 

DATA 

205,63,147,24.34 

[8473 

3160 

DATA 

40,6,221,33,162 

£1223] 

3730 

DATA 

33, 159,197,53,193 

£1005] 

3170 

DATA 

150,24,4,221,33 

£5833 

3740 

DATA 

148,61,50,193,148 

£796] 

3180 

DATA 

22,150,33,43,194 

[9683 

3750 

REM 

* MEM 36400-36499 * 

£3143 

3190 

DATA 

205,63,147,24,34 

£847] 

3760 

DATA 

35,61,32,252,58 

£9593 

3200 

DATA 

33,223,193,58,187 

C11623 

3770 

DATA 

181,148,254,0,40 

£757] 

3210 

DATA 

148.61,50,187,148 

£6113 

3780 

DATA 

6,221,33,232,150 

£949] 

3220 

DATA 

35,61,32,252,58 

[959] 

3790 

DATA 

24,4,221,33,92 

£5863 

3230 

DATA 

175,148,254,0,40 

[9763 

3800 

DATA 

150,205,63,147,58 

£10413 

3240 

DATA 

6,221,33,232,150 

[949] 

3810 

DATA 

195,148,61,254,0 

£7943 

3250 

DATA 

24,4,221,33,92 

C5363 

3820 

DATA 

32,42,33,224,198 

[9183 

3260 

DATA 

150,205,63,147.58 

£1041 ] 

3830 

DATA 

221,33,46,151,205 

£ 1044 3 

3270 

DATA 

189,148,61,254,0 

£12813 

3840 

DATA 

63,147,62,77,50 

£ 704 3 

3280 

DATA 

32,45,33,32,195 

[9363 

3850 

DATA 

195,148,237,95,230 

[803 3 

3290 

DATA 

221,33,46,151,205 

[ 10443 

3860 

DATA 

1,50,183,148,40 

[11503 

3300 

DATA 

63,147,62,77,50 

[704 3 

3870 

DATA 

6,221,33,162,150 

£ 855 3 

3310 

DATA 

189,148,237,95,230 

£ 16283 

3880 

DATA 

24,4,221,33,22 

£800 3 

3320 

DATA 

1,50,177,148,40 

£ 1228] 

3890 

DATA 

150,33,43,199,205 

£1195] 

3330 

REM 

* MEM 36200-36299 » 

‘ £12113 

3900 

DATA 

63,147,24,34,33 

[8633 

3340 

DATA 

9,50,177,148,221 

[7133 

3910 

DATA 

223,198,58,195,148 

[13973 

3350 

DATA 

33,162,150,24,4 

[9783 

3920 

DATA 

61,50,195,148.35 

£4123. 

3360 

DATA 

221,33,22,150,33 

[10693 

3930 

DATA 

61,32,252,58,183 

£9453 

3370 

DATA 

107,195,205,63,147 

£1091] 

3940 

DATA 

148,254,0,40,6 

£8163 

3380 

DATA 

24,34,33,31,195 

£12533 

3950 

DATA 

221,33,232,150,24 

£9783 

3390 

DATA 

58,189,148,61,50 

£515] 

3960 

REM 

* MEM 36500-36599 * 

[11683 

3400 

DATA 

189,148,35,61,32 

£11213 

3970 

DATA 

4,221,33,92,150 

£3293 

3410 

DATA 

252,58,177,148,254 

£ 789] 

3980 

DATA 

205,63,147,33,184 

Cl 0503 

3420 

DATA 

0,40,6,221,33 

£11363 

3990 

DATA 

148,43,237,75,169 

£ 12733 

3430 

DATA 

232,150,24,4,221 

£9243 

4000 

DATA 

148,6,0,9,34 

£5483 

3440 

DATA 

33,92,150,205,63 

[5113 

4010 

DATA 

157,148,126,237,75 

£14073 

3450 

DATA 

147,58,191,148,61 

£11103 

4020 

DATA 

•169,148,72,6,8 

[9373 

3460 

DATA 

254,0,32,42,33 

[4423 

4030 

DATA 

12,16,253,183,185 

£9823 . 






mem 


4040 

DATA 

210,24,137,6,11 

[9503 

4610 

DATA 

46,151,229,197,205 

[954] 

4050 

DATA 

60,16,253,185,218 

C992] 

4620 

DATA 

5,147,193,225,30 

[766] 

4060 

DATA 

24,137,33,172,148 

[1195] 

4630 

DATA 

8,25,16,236,201 

[602] . 

4070 

DATA 

43,237,75,169,148 

[697] 

4640 

DATA 

58,196,148,254,10 

[820] 

4080 

DATA 

6,0,9,34,159 

[762] 

4650 

DATA 

56,17,6,10,61 

[549] 

4090 

DATA 

148,126,254,0,40 

[859] 

4660 

DATA 

16,253,50,196,148 

[8593 

4100 

DATA 

97,58,199,148,60 

C 1448] 

4670 

DATA 

58,197,148,60,50 

[ 796] 

4110 

DATA 

71,58,196,148,60 

[807] 

4680 

DATA 

197,148,24,232,58 

[709] 

4120 

DATA 

16,253,50,196,148 

[859] 

4690 

DATA 

197,148,254,10,56 

[871] 

4130 

DATA 

6,7,33,38,146 

[6923 

4700 

DATA 

17,6,10,61,16 

[756] 

4140 

DATA 

17,47,146,26,50 

[7293 

4710 

DATA 

253,50,197,14B,58 

[1118] 

4150 

DATA 

41,146,197,229,213 

[12733 

4720 

DATA 

198,148,60,50,198 

C 845 ] 

4160 

DATA 

205,170,188,209,225 

[8663 

4730 

DATA 

148,24,232,58,198 

[1186] 

4170 

REM 

* MEM 36600-36699 * 

[1480] 

4 740 

DATA 

148,254,10,56,15 

C 7 B 4 ] 

4180 

DATA 

193,48,241,19,16 

[4713 

4750 

DATA 

6,10,61,16,253 

[1143] 

4190 

DATA 

238,42,157,148,126 

[9673 

4760 

DATA 

50,198,148,58,199 

[756 3 

4200 

DATA 

42,164,148,71,35 

[6243 

4770 

DATA 

148,60,50,199,148 

[1047] 

4210 

DATA 

16,253,237,75,169 

[1194] 

4780 

DATA 

33,25,8,205,117 

[946] 

4220 

DATA 

148,43,16,253,221 

[8193 

4790 

DATA 

187,58,199,148,205 

[1239] 

4230 

DATA 

33,46,151,205,110 

[1179] 

4800 

REM 

* MEM 36900-36999 * 

[?69] 

4240 

DATA 

147,42,157,148,62 

[996] 

4810 

DATA 

77,144,205,90,187 

[12733 

4250 

DATA 

1,1 19,42,159,14B 

[9163 

4820 

DATA 

58,198,148,205,77 

[790] 

4260 

DATA 

237,95,230,1 , 1 19 

[6763 

4830 

DATA 

144,205,90,187,58 

[9333 

4270 

DATA 

205,212,143,58,3 

C11933 

4840 

DATA 

197,148,205,77,144 

[807] 

4280 

DATA 

147,60,50,3,147 

[4843 

4850 

DATA 

205,90,187,58,196 

[989] 

4290 

DATA 

254,100,202,83,144 

[8493 

4860 

DATA 

148,205,77,144,205 

[1189] 

4300 

DATA 

195,24,137,33,184 

[3133 

4870 

DATA 

90,187,201,62,16 

[7163 

4 310 

DATA 

148,6,12,62,1 

[7513 

4880 

DATA 

205,30,187,40,249 

[1034] 

4320 

DATA 

119,35,16,250,6 

[9433 

4890 

DATA 

201,6,48,60,16 

[1160] 

4 330 

DATA 

15,33,54,146,17 

[790] 

4900 

DATA 

253,201,58,163,148 

[9373 

4340 

DATA 

63,146,26,50,57 

[7923 

4910 

DATA 

254,0,40,10,221 

[498] 

4350 

DATA 

146,197,229,213,205 

[1164] 

4920 

DATA 

33,240,148,253,33 . 

[10703 

4360 

DATA 

170,188,209,225,193 

C914] 

4930 

DATA 

200,148,24,8,221 

[1019] 

4370 

DATA 

48,241,19,16,238 

[6153 

4940 

DATA 

33,154,149,253,33 

[7933 

4380 

REM 

* MEM 36700-36799 * 

[1110] 

4950 

DATA 

114,149,42,164,148 

[12283 

4390 

DATA 

33,25,26,205,117 

[11963 

4960 

DATA 

205,5,147,62,0 

[851] 

4400 

DATA 

187,58,171,148,254 

[1057] 

4970 

DATA 

50,3,147,62,0 

[6053 

4410 

DATA 

0,200,61,50,171 

[908] 

4980 

DATA 

245,6,250,33,38 

[316] 

4420 

DATA 

148,205,77,144,205 

[1189] 

4990 

DATA 

146,241,60,245,50 

[12743 

4430 

DATA 

90,187,33,0,192 

[9803 ’ 

5000 

DATA 

41,146,197,229,213 

[12733 

4440 

DATA 

205,189,143,33,160 

£11853 

5010 

REM , 

* MEM 37000-37099 * 

[9393 

4450 

DATA 

192,205,189,143,33 

[1199] 

5020 

DATA 

205,170,188,209,225 

[8663 

4460 

DATA 

64,193,205,189,143 

[9693 

5030 

DATA 

193,48,239,16,237 

[7883 

4470 

DATA 

33,224,193,205,189 

[1059] 

5040 

DATA 

241,33,13,15,205 

[8043 

4480 

DATA 

143,33,128,194,205 

[794 3 

5050 

DATA 

117,187,58,4,147 

[9003 

4490 

DATA 

189,143,33,32,195 

[9533 

5060 

DATA 

60,50,4,147,254 

[5983 

4500 

DATA 

205,189,143,33,192 

[11853 

5070 

DATA 

1,32,13,58,197 

[ 1005] 

4510 

DATA 

195,205,189,143,33 • 

[8753 

5080 

DATA 

148,60,50,197,148 

[9863 

4520 

DATA 

96,196,205,189,143 

[641 ] 

5090 

DATA 

33,83,146,195,239 

[6993 

4530 

DATA 

33,0,197,205,189 

[950 3 

5100 

DATA 

145,254,2,32,14 

[7113 

4540 

DATA 

143,33,160,197,205 

[9083 

5110 

DATA 

58,197,148,60,60 

[8103 

4550 

DATA 

189,143,33,64,198 

[9723 

5120 

DATA 

50,197,148,33,94 

[5813 

4560 

DATA 

205,189,143,33,224 

[11853 

5130 

DATA 

146,195,239,145,254 

[ 15263 

4570 

DATA 

198,205,189,143,195 

[7353 

5140 

DATA 

3,32,15,58,197 

[7273 

4580 

DATA 

195,136,6,10,221 

C10323 

5150 

DATA 

148,60,60,60,50 

[9783 

4590 

REM 

* MEM 36800-36899 * 

[9673 

5160 

DATA 

197,148,33,105,146 

[672] 

4600 

DATA 

33,46,151,253,33 

[9513 

5170 

DATA 

195,239,145,254,4 

[739] 







5180 

DATA 

32,16,58,197,148 

C 842 D 

5190 

DATA 

60,60,60,60,50 

[6863 

5200 

DATA 

197,148,33,116,146 

[783] 

5210 

DATA 

195,239,145,254,5 

[738] 

5220 

REM 

* HEH 37100-37199 * 

[1293] 

5230 

DATA 

32,17,58,197,148 

[7033 

5240 

DATA 

60,60,60,60,60 

[6283 

5250 

DATA 

50,197,148,33,127 

[9033 

5260 

DATA 

146,195,239,145,254 

[ 15263 

5270 

DATA 

6,32,28,58,196 

[10083 

5280 

DATA 

148,60,60,60,60 

[976] 

5290 

DATA 

60,50,196,148,58 

[7183 

5300 

DATA 

197,148,6,7,60 

[7193 

5310 

DATA 

16,253,50,197,148 

[8433 

5320 

DATA 

33,138.146,195,239 

[11683 

5330 

DATA 

145,254,7,32,19 

[9233 

5340 

DATA 

33,1,0,34,155 

[9423 

5350 

DATA 

148,58,198,143,60 

[10263 

5360 

DATA 

50,198,143,33,149 

[ 10273 

5370 

DATA 

146, 195,239,145,254 

[ 15263 

5380 

DATA 

8,32,14,58,198 

[6023 

5390 

DATA 

14B, 60,60,50,'198 

[11943 

5400 

DATA 

148,33.160,146,195 

[768] 

5410 

DATA 

239,145,254,9,32 

[502 3 

5420 

DATA 

25,58,197,148,60 

C10043 

5430 

REH 

* HEM 37200-37299 * 

[9913 

5440 

DATA 

60,60,60,60,50 

[6363 

5450 

DATA 

197,148,58,198,148 

[777 3 

5460 

DATA 

60,60,50,198,148 

[427] 

5470 

DATA 

33,171,146,195,239 

[8283 

5480 

DATA 

145,254,10.32,14 

[8693 

54 90 

DATA 

58,198,148,60,60 

[8783 

5500 

DATA 

60,50,198,148,33 

[6413 

5510 

DATA 

182,146,24,120,254 

[590 3 

5520 

DATA 

11,32,15,58,198 

[1262] 

5530 

DATA 

14 8,60,.60,60,60 

[9763 

5540 

DATA 

50,198,148,33,193 

[9953 

5550 

DATA 

146,24,101,254,12 

[7133 

5560 

DATA 

32,16,58,198,148 

[8903 

5570 

DATA 

60,60,60,60,60 

[6283 

5530 

DATA 

50,198,148,33,204 

[9213 

5590 

DATA 

146,24,81,254,13 

[8993 

5600 

DATA 

32,16,58,198,148 

[890] 

5610 

DATA 

6,6,60,16,253 

[5333 

5620 

DATA 

50,198,148,33,215 

[9183 

56 30 

DATA 

146,24,61,254,14 

[4573 

5640 

REH 

* MEM 37300-37399 * 

[12573 

5650 

DATA 

32,16,58,198,148 

[8903 

5660 

DATA 

6,7,60,16,253 

[8703 

5670 

DATA 

50,19B,148,33,226 

[9233 

5680 

DATA 

146,24,41,254,15 

[4543 

5690 

DATA 

32,27,58,197,148 

[11603 

5700 

DATA 

60,60,60,60,60 

[6283 

5710 

DATA 

50,197,148,58,198 

[9283 

5720 

DATA 

148,6,7,60,16 

[4553 

5730 

DATA 

253,50,198,148,33 

[9833 

5740 

DATA 

237,146,24,10,58 

[6533 


5750 

DATA 

199,148,60,50,199 

[744] 

5760 

DATA 

148,33,248,146,6 

[925] 

5770 

DATA 

11,126,205,90,187 

[986] 

5780 

DATA 

35,16,249,205,121 

C1216] 

5790 

DATA 

148,33,13,15,205 

[935] 

5800 

DATA 

117,187,6,11,62 

[1021] 

5810 

DATA 

128,205,90,187,16 

[756] 

5820 

DATA 

249,205,212,143,42 

[1163] 

5830 

DATA 

155,148,125,254,1 

[1031] 

5840 

DATA 

202,24,137,6,250 

[841 ] 

5850 

REM 

* HEM 37400-37499 * 

[ 979] 

5860 

DATA 

43,16,253,6,250 

[716] 

5870 

DATA 

43,16,253,34,155 

[648] 

5880 

DATA 

148,195,24,137,1 

[804] 

5890 

DATA 

0,0,119,0,0 

[483] 

5900 

DATA 

12,1,0,1,50 

[782] 

5910 

DATA 

150,250,150,50,1 

[622] 

5920 

DATA 

1,0,0,119,0 

[ 1004] 

5930 

DATA 

0,12,10,0,239 

[539] 

5940 

DATA 

213,201,179,159,150 

[1338] 

5950 

DATA 

127,119,127,150,159 

[1063] 

5960 

DATA 

179,201,213,239,80 

[593] 

5970 

DATA 

82,69,84.33,66 

[ 755] 

5980 

DATA 

79,78,85,83,32 

[343] 

5990 

DATA 

49,48,48,32,32 

[539] 

6000 

DATA 

66,79,78,85,83 

C771 ] 

6010 

DATA 

32,50,48,48,32 

[649] 

6020 

DATA 

32,66,79,78,85 

[1183 3 

6030 

DATA 

83,32,51,48,48 

[322] 

6040 

DATA 

32,32,66,79,78 

[1138] 

6050 

DATA 

85,83,32,52,48 

[315] 

6060 

REM 

* MEM 37500-37599 « 

[1269] 

6070 

DATA 

48,32,32,66,79 

[782] 

6080 

DATA 

78,85,83,32,53 

[270 3 

6090 

DATA 

48,48,32,32,66 

[1230] 

6100 

DATA 

79,78,85,83,32 

C343] 

6110 

DATA 

e r e aq 7 n t h 

[1177] 

6120 

DATA 

66,79,78,85,83 

[771] 

6130 

DATA 

32,49,48,48,48 

[ 773] 

6140 

DATA 

32,66,79,78,85 

[ 11833 

6150 

DATA 

83,32,50,48,48 

[513] 

6160 

DATA 

48,32,66,79,78 

[7323 

6170 

DATA 

85,83,32,50,53 

[564] 

6180 

DATA 

48,48,32,66,79 

[10703 

6190 

DATA 

78,85,8.},32,51 

[272] 

6200 

DATA 

48,48,48,32.66 

[9523 

6210 

DATA 

79,78,85,83,32 

[343] 

6220 

DATA 

52,48,48,48,32 

[332 3 

6230 

DATA 

66,79,78,35,83 

[7713 

6240 

DATA 

32,53,48,48,48 

[4783 

6250 

DATA 

32,66,79,78,85 

C11833 

6260 

DATA- 

83,32,54,48,48 

[4903 

6270 

REM 

* MEM 37600-37699 * 

[8553 

6280 

DATA 

48,32,66,79,78 

[7323 

6290 

DATA 

85,83,32,55,48 

[3233 

6300 

DATA 

48,4B,32,66,79 

[1070] 

6310 

DATA 

78,85,83,32,55 

[268] 
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6 3 2 0 

DATA 

53.48,43.32,66 

1637] 

6890 

DATA 

33,56,151,253,33 

[1131] 

A 3 3 0 

DATA 

79,78,85,33.32 

[3431 

6900 

REM 

* MEM 37900-37999 * 

[1053] 

6 34 0 

DATA 

49,43,48,48,48 

[648] 

6910 

DATA 

46,151,205,5,147 

[ 1087] 

6350 

DATA 

0,0.229,22,’l 

[5101 

6920 

DATA 

42,164,148,17,160 

C762] 

6360 

DATA 

213.6,8,253,126 

[1110] 

6930 

DATA 

0,25,34,164,148 

C611] 

6370 

DATA 

0,1 19,253,35,35 

[997] 

6940 

DATA 

42,166,148,201,237 

[957] 

6380 

DATA 

16,247,17,243,7 

[1086] 

6950 

DATA 

75,169,148,120,254 

[892] 

6390 

DATA 

25,14,7.6,3 

[579] 

6960 

DATA 

1,200,5,5,237 

[801] 

6400 

DATA 

221,126,0,119,221 

[1010] 

6970 

DATA 

67,169,148,42,164 

[1162] 

6410 

DATA 

35,35.16,247,13 

C739] 

6980 

DATA 

148,221,33,56,151 

[585] 

6420 

DATA 

121,254.0,40,6 

[1014] 

6990 

DATA 

253,33,46,151,205 

[705] 

è43 0 

DATA 

17,248,7,25.24 

[964] 

7000 

DATA 

5,147,42,164,148 

[5463 

6440 

DATA 

233,209.122,254,0 

[9163 

7010 

DATA 

43,43,62,1,50 

C 7483 

6450 

DAT A 

200,21,225,213,17 

£674 ] 

7020 

DATA 

163,148,34,164,148 

[6593 

u 4 o 0 

DATA 

00,0,25,24,217 

[869] 

7030 

DATA 

42,166,148,201,237 

[9573 

6470 

DATA 

229,22,1,213,17 

[804] 

7040 

DATA 

75,169,148,120,254 

[8923 

6430 

REM 

* MEM 37700-37799 * 

C13133 

7050 

DATA 

73,200,4,4,237 

[5853 

64 90 

DATA 

0,3,25,14,7 

[660] 

7060 

DATA 

67,169,148,42,164 

C 1162] 

6 500 

DATA 

6,5,221.126,0 

[939] 

7070 

DATA 

148,221,33,56,151 

[5853 

6510 

DATA 

119,221,35,35,16 

[997] 

7080 

DATA 

253,33,46,151,205 

[7053 

6520 

DATA 

247.13,121,254,0 

[207] 

7090 

DATA 

5,147,42,164,148 

[5463 

6530 

DATA 

40,6,17,251,7 

[946] 

7100 

DATA 

35,35,62,0,50 

C 657 3 

6540 

DATA 

25.24.233,209,122 

[1218] 

7110 

REM 

* MEM 38000-38099 * 

[727] 

6550 

DATA 

254,0,200,21,225 

[756] 

7120 

DATA 

163, 148,34,164,148 

[659] 

6560 

DATA 

213,17.80,0,25 

[9203 

7130 

DATA 

42,166,148,201,6 

[9273 

à 5 7 0 

DATA 

24,217,229,22.1 

[638] 

7140 

DATA 

4,33,232,253,43 

[7103 

6580 

DATA 

213,17,0,8.25 

[1033] 

7150 

DATA 

124,254,0,32,250 

[847] 

6590 

DATA 

14,7.6,4,221 

[723] 

7160 

DATA 

125,254,0,32,245 

[ 1053 3 

6 6 0 0 

DATA 

126.0.119,221,35 

[1404] 

7170 

DATA 

16,240,201,42,155 

[981 ] 

6610 

DATA 

35, 16,247,13,121 

[1116] 

7180 

DATA 

143,43,124,254,0 

[8433 

6620 

DATA 

254,0.40.215,17 

[4983 

7190 

DATA 

32,250,125,254,0 

[10213 

66 36' 

DATA 

252,7,25,24,233 

[ 7523 

7200 

DATA 

32,245,201,0,0 

[8333 

6640 

Data 

209,122,254,0,200 

C10213 

7210 

DATA 

0,0,0,0,0 

[9363 

6650 

DATA 

21.225,213,17,80 

C10363 

7220 

DATA 

0,0,0,0,0 

[936] 

6660 

DATA 

0,25,24,217,62 

[7133 

7230 

DATA 

0,0,0,0,0 

[9363 

6670 

DATA 

0,50.162,148,53 

[11793 

7240 

DATA 

0,0,0,0,0 

[936] 

6 6 B 0 

DATA 

161,148,254,1,40 

[1044] 

7250 

DATA 

0,0,0,0,0 

[9363 

66 9 0 

REM 

* MEM 37800-37899 * 

[11213 

7260 

DATA 

0,0,0,0,0 

[936 3 

6700 

DATA 

5,60,50,161,143 

[7983 

7270 

DATA 

0,0,0,0,0 

[9363 

6 7 1 0 

DATA 

201,62,0,50,161 

[12833 

7280 

DATA 

0,0,0,0,0 

[9363 

6720 

DATA 

148,237,75.169,148 

[12163 

7290 

DATA 

0,0,0,240,240 

Cl 190 3 

6/3 0 

DATA 

121,254,1,200,13 

[14413 

7300 

DATA 

240,240,240,240,0 

[8423 

6740 

DATA 

237,67,169.148.42 

[5843 

7310 

DATA 

0,0,240,240,240 

[8333 

6 750 

DATA 

164,148,221,33,56 

[7103 

7320 

REM 

* MEM 38100-38199 * 

[11363 

6760 

DATA 

151,253,33,46,151 

[837] 

7330 

DATA 

240,0,0,0,0 

[3413 

6 770 

DATA 

205,5,147,42,164 

[ 10333 

7340 

DATA 

16,240,240,128,0 

[10633 

6780 

DATA 

148,62,160,43,61 

[6703 

7350 

DATA 

0,0,0,0,112 

£9863 

3 790 

DATA 

254,0,32,250,34 

[7903 

7360 

DATA 

224,0,0,0,0 

£629] 

6800 

DATA 

164,148,42,166.148 

[9103 

7370 

DATA 

0,0,16,128,0 

■ £7503 

6310 

DATA 

201,62,0,50,161 

[ 12333 

7380 

DATA 

0,0,0,0,0 

[9363 

6320 

DATA 

148,58,162,148,254 

[ 1058 3 

7390 

DATA 

16,128,0,0,0 

[741] 

6830 

DATA 

1,40,5,60,50 

[878] 

7400 

DATA 

7,0,0,1,8 

[5383 

6840 

DATA 

162,148,201,62,0 

[939] 

7410 

DATA 

0,0,0,7,0 

[8923 

6850 

DATA 

50,162,148,237,75 

[ 1074] 

7420 

DATA 

51,143,15,B,0 

[626] 

6360 

DATA 

169,148,121,254,12 

[9073 

7430 

DATA 

0,15,0,119,158 

[7823 

6870 

DATA 

200,12,237,67,169 

[9323 

7440 

DATA 

135,14,0,1,14 

[7453 

6880 

DATA 

148,42,164,148.221 

[8603 

7450 

DATA 

17,255,158,225,15 

[10083 














msm? 


Tbus les listings de chaque numéro d’Amstrad Magazine 
sur cassette. A l’unité ou par abonnement (chaque mois 
la cassette vous parviendra à la sortie du numéro). 


Bien à l’abri et parfaitement classées, vous donnerez à 
vos revues la plane qu’elles méritent. 


Coupon à retourner à : Amstrad Magazine, service diffusion, 5-7, rue de l’Amiral Courbet, 94160 Saint-Mandé 


ABONNEMENT Votre abonnement débutera au numéro suivant si votre bulletin nous parvient le 15 au plus tard. 
Je m’abonne à Amstrad Magazine □ 275 F. □ Europe : 375 F. □ Alrmail : 400 F. 


CASSETTES à 68 F : n° 4 5 6 7 8 9 10 U 12 13 14 15 16 17 18 19 20 21 22 23 

{entourez celles que vous désirez) 

□ 6 cassettes 350 F (Abonnement) □ 12 cassettes 650 F (Abonnement) . . 


DISQUETTES comprenant les listings d’Amstrad Magazine. , □ n° 3, 4, 5 : 170 F. □ n° 6, 7, 8 : 170 F. □ n° 10 : 100 F. 
n° 11: 100 F. □ n° 9, 10, 11 : 170 F. G n° 12, 13, 14 : 170 F. □ n° 15, 16, 17 : 170 F. □ n° 18, 19, 20 : 170 F. 

Europe : 200 FF. Airmail : 200 FF mandat international. 


REUURES Prix C 65 F (60 F pour les abonnés). 


ANCIENS NUMEROS G1 numéro d’Amstrad Magazine : 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 

(entourez celui que vous désirez) Soit : 18 F + 6,50 F de frais de part : 24,50 F. 

G Collection (numéros 4, 5, 6, 7, 8, 9, 10, U, 12, 13, 14, 15, 16, 17, 18, 19,20, 21,.22 : 285 F 
(envoi gratuit). 


PRENOM 


Signature 


Préciser S.V.P. : Êtes-vous déjà abonné : □ oui □ non 

Possédez-vous un ordinateur AMSTRAD : □ oui 

Lequel . . . 

Conditions valables dans la mesure des stocks disponibles. 


CODE POSTAL I_I_1_1_L_i VILLE 

Mil Mil Date 
TAB PNS 

C Chèque Bancaire □ Chèque Postal 


□ Mandat 


NOM 


RUE 


Tbus les listings de plusieurs numéros d’Amstrad 
sur disauette. 













7460 

DATA 

15,15,14,119,255 

[9421 


8030 

DATA 

3,225,0,120,135 

[772] 

7470 

DATA 

30,225,105,15,15 

[11883 


8040 

DATA 

30,225,0,15,240 

[806] 

74B0 

DATA 

8,127,239,60,195 

[891] • 


8050 

DATA 

240,15,0,1,60 

[345] 

7490 

DATA 

15,15,8,12,15 

[1037] 


8060 

DATA 

195,8,0,0,52 

[523] 

7500 

DATA 

15,60,195,15,12 

[895] 


8070 

DATA 

194,0,0,0,52 

[411] 

7510 

DATA 

0,4,7,15,120 

[ 1008] 


8080 

DATA 

194,0,0,1,60 

[466] 

7520 

DATA 

135,12,0,0,0 

[561] 


8090 

DATA 

195,8,0,15,240 

[430] 

7530 

REM 

* MEM 38200-38299 * 

[702] 


8100 

DATA 

240,15,0,120,135 

[443] 

7540 

DATA 

3,15,120,135,8 

C5B0] 


8110 

DATA 

30,225,0,120,12 

[820] 

7550 

DATA 

0,0,0,0,7 

[941] 


8120 

DATA 

3,225,0,75,8 

[519] 

7560 

DATA 

15,15,0,0,0 

[629] 


8130 

DATA 

1,45,0,14,0 

[757] 

7570 

DATA 

0,0,1,0,4 

[694] 


8140 

DATA 

0,7, 14,0,0 

[327] 

7580 

DATA 

0,0,0,0,0 

[936] 


8150 

DATA 

7,0,75,8,1 

[390] 

7590 

DATA 

2,0,2,0,0 

[338] 


8160 

REM 

* MEM 38500-38599 * 

[1180] 

7600 

DATA 

0,0,0,15,15 

[842] 


8170 

DATA 

45,0,120,12,3 

[864] 

7610 

DATA 

15,8,0,0,0 

[671] 


8180 

DATA 

225,0,120,135,30 

[657] 

7620 

DATA 

0,0,0,0,0 

[936] 


8190 

DATA 

225,0,15,240,240 

[779] 

7630 

DATA 

0,0,0,0,0 

[936] 


8200 

DATA 

15,0,1,60,195 

[733] 

7640 

DATA 

0,0,0,0,0 

[936] 


8210 

DATA 

8,0,0,52,194 

[5423 

7650 

DATA 

0,0,0,0,0 

[936] 


8220 

DATA 

0,0,0,52,194 

[1160] 

7660 

DATA 

240,240,240,240,240 

[969] 


8230 

DATA 

0,0,1,60,195 

[8613 

7670 

DATA 

240,0,0,0,240 

[660] 


8240 

DATA 

8,0,15,240,240 

[713] 

7680 

DATA 

240,240,240,0,0 

[892] 


8250 

DATA 

15,0,120,135,30 

[1118] 

7690 

DATA 

0,0,16,240,240 

[693] 


8260 

DATA 

225,0,120,12,3 

[715] 

7700 

DATA 

128,0,0,0,0 

C3413 


8270 

DATA 

225,0,75,8,1 

[ 1035] 

7710 

DATA 

0,112,224,0,0 

[738] 


8280 

DATA 

45,0,14,0,0 

[738] 

7720 

DATA 

0,0,0,0,16 

[8813 


8290 

DATA 

7,0,0,0,7 

[559] 

7730 

DATA 

128,0,0,14,0 

[5053 


8300 

DATA 

14,0,0,1,15 

[698] 

7740 

REM 

* MEM 38300-38399 * 

[868] 


8310 

DATA 

15,3,0,3,15 

[7983 

7750 

DATA 

0,0,16,128,0 

[750] 


8320 

DATA 

15,12,0,7,15 

[547 3 

7760 

DATA 

0,14,0,0,0 

[8803 

• 

8330 

DATA 

15,14,0,15,195 

[821] 

7770 

DATA 

1,8,0,0,15 

[7233 


8340 

DATA 

60,15,0,15,195 

[609] 

7780 

DATA 

0,0,1,15,31 

[7343 


8350 

DATA 

60,15,0,15,15 

[5513 

7790 

DATA 

204,0,7,8,0 

[765] 


8360 

DATA 

15,15,0,12,102 

[884 3 

7800 

DATA 

7,30,151,238,0 

[906 3 


8370 

REM 

* MEM 38600-38700 * 

[604 3 

7810 

DATA 

7,15,15,15,120 

[10363 


8380 

DATA 

102,3,0,15,102 

[1060 3 

7820 

DATA 

151,255,136,1,15 

C 1386 3 


8390 

DATA 

102,15,0,15,8 

[6103 

7830 

DATA 

15,105,120,135,255 

[1145] 


8400 

DATA 

1,15,0,15,12 

[5863 

7840 

DATA 

238,3,1,15,15 

[3723 


3410 

DATA 

3, 15,0, 15,15 

[635] 

7850 

DATA 

60,195,127,239,2 

[791] 


8420 

DATA 

15,15,0,12,13 { . 

[7923 

7860 

DATA 

0,'3, 15,60,195 

[7063 


8430 

DATA 

11,3,0,12,13 

[10643 

7370 

DATA 

15,15,0,0,0 

[629] 


8440 

DATA 

11,3,0,7,14 

[829 3 

7880 

DATA 

3,30,225,15,14 

[9663 


8450 

DATA 

0,0,1,15,15 

[734] 

7890 

DATA 

0,0,0,1,30 

[954] 


8460 

DATA 

8,0,3,15,15 

[6193 

7900 

DATA 

225,15,12,0,0 

[7353 


8470 

DATA 

12,0,7,15,15 

[616] 

7910 

DATA 

0,0,15,15,14 

[624] 


8480 

DATA 

14,0,15,195,60 

[ 1280 3 

7920 

DATA 

0,0,0,0,0 

[9363 


8490 

DATA 

15,0,15,195,60 

[580 3 

7930 

DATA 

2,0,8,0,0 

[2463 


8500 

DATA 

15,0,15,15,15 

[654] 

7940 

DATA 

0,0,0,4,0 

[888] 


8510 

DATA 

15,0,12,102,102 

[7943 

7950 

REM 

* MEM 38400-38499 * 

[1162] 


8520 

DATA 

3,0,15,102,102 

[9703 

7960 

DATA 

4,0,0,0,0 

[3333 


8530 

DATA 

15,0,15,8,1. 

[334 3 

7970 

DATA 

1,15,15,15,0 

[770 3 


8540 

DATA 

15,0,15,12,3 

[4673 

7980 

DATA 

0,0,0,0,0 

[936] 


8550 

DATA 

15,0,15,15,15 

[654] 

7990 

DATA 

0,0,0,0,0 

[9363 


8560 

DATA 

15,0,12,13,11 

C7253 

8000 

DATA 

0,0,0,14,0 

[9603 


8570 

DATA 

3,0,12,13,11 

[3363 

8010 

DATA 

0,7,0,75,8 

[7343 


8580 

DATA 

3 

[1643 

8020 

DATA 

1,45,0,120,12 

[857] 


8590 

END 


[110 3 
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LA LONGUEUR 
DES FICHIERS SUR PCW 



; • -• • v. ■■ '*W 5 f •: ':»V ; V■•V-V'S* - 

Ce court programme “Tailfich” fait suite à la 
parution de “Spacedisk”, du même auteur, 
dans les Cahiers d’Amstrad pro... récemment. 
Rassurez-vous, vous n’êtes pas obligé de pos¬ 
séder ce magazine pour parvenir à vos fins. En 
effet, cette routine, tout en étant différente de 
celle pré-citée, propose la même fonction 
(place restante sur un disque), avec cependant 

un plus : la longueur des fichiers. 

; , - '• ■ . : : • 


10 REM Interface avec fonction sect C 4357 3 
libr et tailfich - P. ACKERMANN 
20 MEMORY 49999! : sectlibr= &HC420 t 3251 3 

: tailfich = &HC445 

30 DATA 00,20,20,20,20,20,20,20,20, [ 2663 ] 

20,20,20,00,00,00,00 

40 DATA 20,20,20,20,20,20,20,20,20, [ 2672 3 

20 , 20 , 20 , 20 , 20 , 20,00 

50 DATA 00,00,00,00,00,00,00,00,00, C 2643 3 
00,00,00,00,00,00,00 

60 DATA 00,00,00,00,00,00,00,00,00, [ 2771 3 

00, 00, Fl,El,Dl,Cl,ED 

70 DATA 7B,74,C3,C9,ED,53,76,C3,7E, t 2931 3 
FE,11,38,02,3E,10,32 

80 DATA 78,C3,23,5E,23,56,ED,53,79, [ 2907 3 
C3,EB,11,7B,C3, 01, 10 

90 DATA 00, ED,B0,2A,76,C3,36,00,23, t 2872 3 
36,00,21,7B,C3,47,7E 

100 DATA FE,61,38,08,FE,7B,D2,8B.C3 C 3007 3 
,D6,20,77,23,05,C2, BF 

110 DATA C3,21,50,C3,11,50,00,01,24 [ 2945 3 


Quoi de plus rageant lorsque 
l’on a fait un beau programme 
de gestion de fichier indexé avec 
le puissant Basic Mallard et ses 
fonctions .Jetsam sur le PCW. et 
que l’on sait imprévisible le 
moment où ce fichier va “débor¬ 
der” la capacité du disque, el 
que tout ce beau travail va se 
“planter” parce que le fichier ne 
sera pas refermé à temps... Les 
deux routines en langage 
machine “Sectlibr” et "Tail¬ 
fich” vont permettre de combler 
ces lacunes en augmentant les 
capacités du Basic Maliard de 
deux nouvelles fonctions. 

1 - La fonction “Sectlibr” ren¬ 


voie le nombre de secteurs libres 
sur un disque sélectionné (1 sec¬ 
teur = 128 octets, soit 1/8 de 
Kilo-Octet), elle sera appelée à 
l’adresse 50208 (soit C420 en 
héxadécimal). 

2 - La fonction “Tailfich” ren¬ 
voie le nombre de secteurs occu¬ 
pés par un fichier sélectionné, 
elle sera appelée à l’adresse 
50245 (soit C445 en héxadéci¬ 
mal). Après avoir “poké” les 
codes héxadéciinaux (lignes 20 à 
236), il suffit d’appeler la fonc¬ 
tion désirée (Sectlibr ou Tailfich) 
par un call, comme cela vous est 
démontré en lignes 290 et 340. 

Patrick ACKERMANN 


, ED,B0,C9,FE 
DATA SB,C3, 

, C3,46,21,7B 
DATA 5D,00, 

, 20,05,11,65 
DATA 02,12, 

, 5B,76,C3,EB 
DATA 72,C3, 
, 00 , 00 , 00,00 
DATA ED,73, 

, 0E, IA,CD,05 
DATA 7B,C3, 

, 0E, 2E,CD,05 
DATA 78,C3, 

, 94,C3,3A,7C 
DATA 3A,20, 

, 40,32,5C,00 
DATA C3,11, 

, 78, C3,D6,02 
DATA C3,CD, 

, 05,00,FE,FF 


,41,DA 
FE,51,D2, 
, C3, 11 
7E,FE,3A, 
,00,18 
13,23,05, 
,73,23 
8B,C3,00, 
, 00,00 
74, CD, CD, 
,00,3A 
CD,DD,C3, 
,00,2A 
03,09, C4, 
,C3,FE 
1E,3A,7B, 
,21,7D 
7B,C3,01, 
,32,78 
E8,C3, 11, 
,CA,SB 


8B,C3,C9,21 t 2986 3 
CA,8B,C3,FE C 2985 3 
C2,F2,C3,C9 C 2958 3 
00,00,00,00 C 2771 3 
94,C3,11,78 C 2993 3 
D6,41,5F,16 [ 3014 3 
ED,73,74,C3 C 3055 3 
C3,CD,DD,C3 C 2997 3 
0C,00,ED,B0 C 2943 3 


5C,00,OE,23 C 3046 3 













236 NEXT i 
240 * 

250 REM Votre programme commence 
i : voici un exemple d'utilisât! 


22û DATA C3.2A.7D,00,C3,09.C4,00,00 C 2812 3 

, 00 , 00 , 00 , 00 , 00 , 00,00 

230 FOR i=50000! TO 50319! C 1374 ] 

231 READ codehexai:codehexa=VAL("&h [ 2981 3 
"+codehexa$) 

235 POKE i,codehexa £ 1215 1 


260 ' C 223 1 

270 REM Utilisation de la fonction C 2982 3 
Tailfich : 

280 REM *************************** C 2000 3 
********** 

290 fichierî—'a:basic. com" ;CALL ta C 3922 3 
ilfichCfichierf,résultat^) 

300 PRINT "Taille fichier :"+STR£<r [ 6031 3 
esultat%)+" secteur(s), sait "+STRî> 

< INT < (resultat%+7) /8> >.+" Ko" 

310 • • [ 219 3 

320 REM Utilisation de la fonction i 2998 3 
sectlibr : 

********** 

340 disqueS="a" : CALL sectlibrCdis C 3195 3 
queS, résultat"/.) 

350 PRINT"Secteur(s) libre<s) : "+S C 5541 3 

TR$ (resultat%)+" soit "+STR$(I NT(<r 
esultat%+7)/8)>+"Ko" 

360 END C 400 3 


disques, soit vous en faites un 
programme à part entière, qui 
pourrait éventuellement s’appe¬ 
ler “Cat” (clin d'œil à l’instruc¬ 
tion si chère à nos cœurs sur 
CPC) qu’il vous suffira de faire 
tourner (RUN “cal.bas") pour 
obtenir le même effet. La 
seconde solution comporte 
néanmoins toujours le problème 
de la sauvegarde du travail en 
cours, mais enfin, à la guerre 
comme à la guerre... Si vous 
choisissez d'utiliser conjointe¬ 
ment les deux programmes, il 
vous faudra copier le second à 
partir de la ligne 270 de Tailfich. 

G.B. 


Et si on 

approfondissait 
un peu ! 


Comme vous le savez, pas 
moyen d’obtenir un catalogue 
qui en soit un sous Basic Mal¬ 
lard. Oh. bien sûr, il suffit de 
faire un retour système (fonction 
SYSTEM lorsque l’on est en 
basic) et de faire appel à la fonc¬ 
tion DIR°KL'LL§, ce qui vous 
donnera un superbe “scanning 
directory”. Mais attention, cela 
suppose qu’il vous faut avoir sur 
l’un des drives (A, B ou M), à 
la fois la commande DIR et le 
Basic (pour pouvoir y retourner 
sans problème une fois le direc¬ 
tory termine). Mais le pire reste 
encore le risque que comporte 
l’oubli d’une sauvegarde du pro¬ 
gramme éventuel en cours de 
traitement. Le petit complète¬ 
ment que nous vous proposons 
ne constitue pas, malheureuse¬ 
ment, la panacée universelle, 
mais vous permet d'obtenir un 
catalogue complet avec direc¬ 
tory, et ceci à partir du Basic. 
Dès lors, deux solutions 
s’offrent à vous : soit vous insé¬ 
rez ce petit programme dans vos 
propres réalisations afin de pou¬ 
voir à tout instant connaître 
l’état de vos fichiers et de vos 


DIRECTORŸ AUEC LONGUEUR DE FICHIER 
Entrez le code du drive concerné par le directory H ou H 
NON LONG NOS LONG 


BASIC .CCH 28 Ko 
ERASE .CCH 4 Ko 
PAPER ,C0H 2 Ko 
SET .CCH 11 Ko 
SEIKIÏS .COH 2 Ko 
SHOW .COH 3 Ko 
KEYS .HP 1 Ko 
PROFILE .FRA 1 Ko 


DISCKIÏ .COH 7 Ko 
ED .COH 10 Ko 
PALETTE .COM 1 Ko 
RENDRE .COM 3 Ko 
SEIDEF .COH 4 Ko 
SETSIÛ .COH 2 Ko 
TYPE .COH 3 Ko 
RPED .SÜE 1 Ko 


J14FCPH3.EHS 40 Ko 
DIR .COH 1S Ko 
LAHGUAGE.COM 1 Ko 
PIP .COH 9 Ko 
SET24XM.COH 1 Ko 
SETLST .COH 2 Ko 
SURHIT .COH 6 Ko 
RPED .BAS 7 Ko 

3 Ko libres 


270 REM Programme catalogue à rajou [ 3276 3 
ter à Tailfich 

280 REM Amstrad Magazine & Georges C 2660 3 
Brize 

290 REM *************************** C 2169 3 
************** 

300 clsî=CHR$(27)+"E"+CHRÆ <27)+"H" 1 1794 3 

310 PRINT clsl C 871 3 

320 RESTORE 540 C 914 3 

330 FOR 1=1 TO 3 :READ b(i),c(i):NEX C 2142 3 
T 

340 PRINT "DIRECTORY AVEC LONGUEUR £ 3056 3 
DE FICHIER" 

350 PRINT:PRINT"Entrez le code du d £ 4991 3 
rive concerné par le directory A ou 
M : " 

360 aS=UPPERS(INKEYS) £ 1280 3 

370 IF a$="" OR a$="B" THEN 360 C 1632 3 

380 drive=ASC<a$) C 1023 3 

390 PRINT:PRINT TAB(5);" NOM"; : P £ 8911 3 
RINT TAB<22);"LONG";: PRINT TAB<35); 

“ NOM";:PRINT TAB<52>;"LONG"; : PR 
INT TAB<65);" NOM";:PRINT TAB<82 
) ;"LONG" 

400 PRINT STRINGS<90,138) C 1502 3 

410 a=l:d=l £ 592 3 


420 IF drive=65 THEN GOSUB 440:GOTO £ 2391 3 
510 

430 IF drive=77 THEN GOSUB 450:GOTO E 2396 3 
510 

440 VHILE FINDS("A:*.*",a)<>"":fich E 4674 3 
ierS=FIND$ <"A:*.*",a):GOSUB 460:VEN 
D:RETURN 

450 WHILE F1NDS("M:*.*",a)O"":fich [ 4699 3 
ierS=FINDS <"M;*. *",a):GOSUB 460:VEN 
D:RETURN 

460 CALL tailfich(fichierS,resultat C 2414 3 
7.) 

470 PEINT TAB (b<d)); fichierS; :PEI £ 6332 3 
NT TAB<c <d) ) USING "###“;VAL(STRS<I 
NT<(resultat%+7)/8)));:PRINT " Ko"; 


480 a=a+l t 471 3 

490 d=d+l: 1F d>3 THEN d=l £ 1437 3 

500 RETURN £ 661 3 

510 disqueS=CHR4(drive) : CALL sect £ 3777 3 

libr (disquef,résultat!») 

520 PRINT:PRINT:PRINT STRS <INT <(res £ 3929 J 
ultat%+7)/8))+" Ko libres" 

530 END £ 399 3 

540 DATA 5,20,35,50,65,80 £ 1286 J 
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